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With over four years experience of providing practical software solutions for business and home applications, Gemini have put together a 
selected ange of famous tes for the Commodore 64 and 128 in TWO specialpacks, at VERY SPECIAL prices. These super value packs 
‘contain al the serious application software you re ever likely to need for your CBM, from word processing and database management 0 
‘a complete professional business accounting system. Gemini’s ‘OFFICE MATE’ and ‘OFFICE MASTER’ are here now - 
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‘uly -estred word processor program wie formating 
‘ight ution aghustatie page length ext centering 
‘utp of alo pat ol et opine selective saving - Me 
‘oneatonaion “Bock move: lock dele everse pnt - 
‘graphics prnt-douewidh pnt - sorting at and ght 
frargin selectate- werd Um search an epice 
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This program wil enable yout hogp a record of names and 
aderesses andthe prin, examine sot anf tem, a wth 
special selection ectriques, Featuring te tamous Gerin 
‘searc-4ey sytem, youhavethe option of creating your own 
deceated coding routes fo each name onthe He 

For example on most mal ystems you ae only given the 
‘standard henings sich asrame, street, own, county. 
butwithoursystem, you coulor exami nd al companies 
[tad hat nave atumoverin excess of acon figure, oa 
subscribers who are behing wth tele subsciions ot al 
‘aopl eli fra Chrismas card this yar! Al ange ot 
{htes sealable om tne menu including otcourse, abe! 
rining 


© Word Processor ® Home Accounts 


© Database * Extensive OFFICE MATE £12 Cassette 
© Mailing List Documentation or 1541 Disk £15 


Step up to OFFICE MATE and save money! Usual price individually £79.80 


© Database © Stock Control 


Cash Book 


© Mailist 
¢ Final Accounts 


Word Processor 
© VAT File 


Database, Mailist and Word Processor as ‘Office Mate’ PLUS: 
‘Cash Book / Final Accounts / VAT File. 
‘Gemini’ legendary cash book system for the CBM is a complete ‘stand-alone’ accounting 
‘software package, already in extensive use by both accountants and their clans, 


Full Documentation 


Kee 


‘Superior fle management sytem with features found any 
wih packages costing much, much mare. Compete use- 
‘elnale data ety format colours definable advanced 
‘mathemati using bultin machine code expression 
trator fast sort on numeric and ring elds extersve 
Searching win ‘wid card capably -user-defrabl dla 
summaries simple on-screen sing, realy POWERFUL 
‘taba! 
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Designed as a complete home accounting package, hes 
program alos te sero set up and martian a budget or 
lems of household expendture and compare aca wih 

‘budget ether numeral or wth the ai ol chart graphics 
‘complete bark acount ovine is incuded toate with 
Standard expend categories which may be changed to 


General System Overview 

“The Geri cash book package for he Commodore 64/128, 

microcomputrs designed or hardware system 

consisting ot 

1 Commodore 64/128 microcomputer. 

2. Bo column pra. 

4. Caste or ck cata storage 

Pease note hat running the program on disk wl not change 

th way hat he program works, but you withave te benef 

‘ifargfeatr sped andrea forteloadng andsavingo! 

fies naa disk system provides 

“There tal of 199 nomial accounts, arg number ot 

‘hich may be dane by the user. You may have up four 

‘ash contd acount, sx ark conta accounts, oe sles. 

ledger and one purchase ledger cont account 

‘The program wl store a data fle consising ot 

1. The acount es. 

12 The cent curulatve balance on gach account 
(oebt ore. 

{3 The nat movement on each aczcunt fr avery month o 
the you, 


Dealers please note that ‘Office Mate’ 
now available also on BBC, Electron, and Spectrum. 


4, VAT nat sales and net payments figures, which 
automaticaly created and mantined by the program, 

‘This sme data les usd by he FINAL ACCOUNTS 

program. The VATFILE which accompanies this package s 

Seaigned pray or those users onthe tars speci 

VAT schemes. 

“Terai features ofthe CASH BOOK program areas fotows 

+. Double entry ounes or tansactons trough the 
cash/bank accounts and sales purchase ladger conta 
seco, 

2, Jxeral fact othe ial se up of accounts, for 
‘adjusments to ary he accounts 

3. The fact fo produce the folowing screed or printed 
reports 

(a) ising of al heroin cour ies 

{b) Monn ansacton summaries. 

(6) Ata balance whenever equred. 

[cl Screen VAT memo accouttalancessales/net 
‘purchases and VAT accouts) 

{e) Abate ping fact which provides deta al the 
‘ransacons ered inthe current uno he progam. 


MAIL 
ORDER 
To: 


1nd ‘Office Master’ 


Sole distributors to the trade: 


CentreSoft Ltd. tet. 021-359-3020 


The tciyoextrct regular management normation | 
suchas cash/barkbalances, debtors nd creors sles, | 
vereads | 
“The program nertaces wih the Geri FINAL. 

ACCOUNTS progam fo enable Trading and Pott and | 
Loge accounts and Balance Sheet be produced 
‘whenever requred. Comparative or budget igurescanbe 
Shown alongside the ata! gues using ths program 
Screen prompts throughout the program facial ease 
fuse 

Storage of VAT information fo assist inthe preparation of 
‘erode VAT rts 

Emo rapping routines to minimise rout err. 

8, The faci to handle the financial ransacbons of sole 
traders, parerships,lted companies, Ube, et 

Users registered or VAT ate ringed that it ica stahtory 

requrementtoinerm bu local VATofice when hey change 

ther accouning recordxonto anew compulersed accounting 


or 1841 Disk 


Tal 


Dinan Way Trading Estate, Exmouth, €x848S, | 


Gomis Marketing Limited, ‘Gorin House 


Please send me CEM 64/126 Otfie Mate’ packs (£12 (Dk £15) 


Please send me —__ CEM 64/128 ‘Ofice Master packs £25, 
Cassette / Disk please delete as necessary) 


| cneque /P.0.sencosed to vale 
or please debt my 34 HOUR GREDIT GARD 
HOT LINE 


(0395) 265165 (4 lines) 
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FEATURES 


@ Adventure Aid 


Type in Allen Webb's adventure creator. 


™ Telephone Exchange 
Part two of our communications program. 


§ Basic Training 
Take a productive computer weekend break. 


@ Mastertronic - on the Piste. 
Budget word processor reviewed. 


@ Word Prok. 
A C64 word processor for you to type in. 


™ Programmer of the Year 


Discover the Arctic wastes with Polar Pete. 


@ Laser Show 
Ocean Laser programs under the microscope. 
™ C-16 Assortment 
The best of the rest in the C-16 software market. 


84 


mProgramming the. C-1.6, 


Musical moments. 
§ Froggy ——_— 


Arcade games dissected by Daryl Bowers 
@ Welcome to the Machine. 


Teach yourself machine code — made easy 


® Top Draw 


Graphics on your C64. 
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REGULARS 


& Data Statements 


@ Sprite Ideas 


"| Game of the Month. 
§ Action Replay 


@ Teacher's Pet. 


® Software for Sale. 
@ Scratch Pad 


COMPE 


@ US Gold Competition 
Win a copy of Kung Fu Master. 
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Soft in the Head 


The software scene this month 
crowded and diverse as ever. 

Plunging straight in at the deep end 
with the serious stuff we have four new 
productivity programs from Ariolasoft, all 
brought in from across the Atlantic. 

PaperClip, HomePak and The 
Consultant are all from the Canadian 
software house, Batteries Included. 

PaperClip is a word processor and it’s a 
former number one piece of software in 
the States. Ariolasoft describes it as 
professional and comprehensive and it 
features full screen editing. It’s available 
on disk and side two contains an 
enhanced C128 version. 

HomePak is a three module package 
and includes: HomeText a word 
processor; Homefind, a data manager; 
and HomeTerm a telecommunications 


is as 


program which communicates with 
databases and other computers. 
The Consultant is a database 


management system designed to organise, 
sort and retrieve records, find exact items 
and execute a variety of search and 
analysis procedures. 

The final package in the latest batch of 
launches from Ariolasoft is called Cut and 
Paste. It’s an easy to use word processor 
from Electronic Arts and its features 
include automatic word wrap, dynamic 
menus and full cut and paste editing. 

Ariolasoft’s Ashley Gray said: 
“Ariolasoft has taken great care to ensure 
that. these new productivity titles are 
exactly right for the home and small 
business user, both in terms of program 
quality, price and distinctive UK 
packag 

‘Commodore is also launching new 
products for the serious user. Two new 
music systems were due to be launched at 
the Ideal Home Exhibition as we went to 
press, They are a complete Music System. 
including a Commodore 64 for under 
£330 and a Music Expansion system for 
under £150. 

Staying with the more serious aspects 
of a Commodore user's life, Medstat, a 
Nottingham based software house, is 
promoting its range of exam revision 
software as we come around once more 


Lae | 


The Consultant 


ick Alexander of Virgin cleans up soccer 


to the time of ‘O’ and ‘A’ Levels, The 
revision aid programs cover French, 
German, Spanish and Italian CSE, ‘O’ and 


‘A’ level examinations and concentrate on 
verb and vocabulary learning, Prices start 
at £13.95 and they are all available on the 
C64. 

Now to games. Fans of the Rocky 
Horror Show who also own a C128 will be 
pleased to hear that CRLis to bring out an 
all new version of its Rocky Horror game 
specially for the 128. Redefined graphics, 
brand new sprites, new animation and 
even more locations are promised 
together with some stunning effects. No 
price has yet been announced for the 
game but it should be available in May. 

There's also good news from CRL for 
C-16 and Plus/4 owners. The Berks trilogy 
is now available on one cassette priced at 
£6.95. It features the original game, Berks 
plus Major Blink (Berks 2) and Berks 3 an 
arcade adventure in which you finally 
penetrate the Berks city and steal their 
treasure. 

Virgin has recently launched the 
official Football Association soccer game 
— FA Cup Football, The game is mainly 
text based and places you in the difficult 
position of managing your teams through 
all the rounds of the FA Cup. 

Tony Williams, author of the League 
Club Directory, upon whose extensive 
research t he game is based, said: “The FA 
Cup is football’s most exciting 
competition and this game reflects that 
excitement, We've had a great deal of fun 


putting it together and I’m sure people 
will have as much fun playing it.” It cost 
£7.95 on the C64, 

Imagine has entered the Kung Fu 
games market with a new release called 
Yie Ar Kung Fu — a very violent game by 
the sound of it! Set in Japan, you take the 
part of Oolong who is attempting to 
become a Kung Fu grandmaster in order 
to honour the memory of his late, dear- 
departed father. Success depends on 
mastering the technique of the 16 
different kicks and punches. You've got 
10 opponents to beat and when you've 
knocked out Blues, the resident 
Grandmaster then the title is yours. 

There are two imminent C64 releases 
from Ocean. Green Beret, a 
‘contemporary war drama from Konai 
makers of coin-op arcade games — is due 
for release in May at £8.95. There is alsoto 
be a computer game based on that good 
ol superhero Batman which is scheduled 
for a May launch and will retail again at 
£8.95. 

For those who would rather have the 
satisfaction of creating their own 
programs without a lot of sweat, there isa 
new Graphic Adventre Creator for the 
C64/128 from Incentive Software. It is an 
adventure generator with a built in 
graphics editor and Incentive claims that 
it allows you to produce professional 
adventures with ease and does not 
require any knowledge of computer 
programming. It’s due for release on 1 
May. 

In the shops now should be Micro 
Power's Doctor Who game, which has 
been in the pipeline for many months. 
‘The game contains about 130 screens and 
has three different tunes to keep you 
amused while you tackle the problems it 
represents. One of these is, of course the 
classic Doctor Who theme. the price — 
£11.95. Oh, and look out for the 
programmable droid cat. The what? 

If you want to be king of the gnomes, 
or you just want to find outa bit about the 
intricacies of gnome culture then US 
Gold's Time Tunnel might be the game for 
you. You have been chosen as the next 
gnome king but you need to complete the 
inevitable tasks to prove your worth. An 
ancient gnome manuscript has been 
ripped up and scattered through the ages 
by an evil cyclops — a weird mix of 
Scandinavian and Greek folklore! When 
you've got the seven pieces you can 
perform the magic spell which will free all 
the gnomes in the forests of Scandinavia 
and allow you to become their supreme 
leader. It's £6.95 on cassette and £14.95 on 
disk. 

Yet another well known hero has been 
transferred to the big screen and thence 
to the computer monitor. This time it's 
Biggles and Mirrorsoft has acquired the 
rights to produce the game of the film 
of the books. It should be out at the 
beginning of May so budding air aces 
watch out for it. 


Comic Bakery 


Mind Games joins the Force 


reefers 


Moving from the air right down to 
earth into the realms of the ludicrous you 
come to a new release from Imagine 
called Comic Bakery. You are Joe the 
baker in charge of your high tech loaf 
producing plant, and you must stop the 
scavenging raccoon dogs eating all the 
loaves, It’s in the shops now at £8.95 on 
cassette. 

If you've always wanted to find out 
what it’s like to be one of the boys in blue 
in a city police force then maybe Mind 
Games latest offering will give you some 
idea of what it's like. Allegedly produced 
in consultation with some of “Britain's top 
policemen” it’s a complicates game 
which requires you to keep law and order 
without losing your popularity 
Impossible? Try it and see. It's £9.95 and 
patrolling the streets now. 

For C-16 owners there is nowa version 
of Elite’s very popular title Commando. 
Originally an arcade coin-op game it has 
been available for the C64 for some time. 
Now C-16 users can have a taste of 
excitement themselves. 
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Ariolasoft: 8 Westminster Palace Gar 
Artillery Row, London SW1. 01 222 083. 
US Gold. Unit 10, The Parkway Industrial 
Centre, Heaneage Street, Birmingham. 
1 359 3020. 
Elite Systems: 
nad, Aldrige 


House, Anchor 
Ws9 8PW 


Anchor 

Walsall 0992 
Liberty House, 222 R 
On WIR 7DB. 01 439 0666 

Imagine: 6 Central Street, Manchester M2 

NS. 061 834 3939. 

Micro Power: Northwood House, North 

Street, Leeds LS7 2AA. 0532 458800. 

Incentive: 54 London Street, Readin 

RG1 45Q. 0734 591678. 
As Imagine. 
n: 2-4 Ve 

London W 

CRL: CRI e, 9 King’s Yar 

Carpenter’s Road, London E15 2HD. 01 

3 2918. 

Medstat: City House, Maid Marion Wa 

Nottingham NG1 6BH. 0602 411120. 

Commodore: 1 Hunter's Road, Weldon 

Corby, Northants NN17 
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Generally Speaking 


A plug-in adaptor to get rid of mains. 
interference is now available from 
Duraplug. It fits directly into a standard 
socket and provides a continuous 
laundering of the electrical supply to a 
plugged in appliance. 

Computers are apt to suffer from 
voltage surges and the adaptor will clean 
this up so that your printer won't print 
weird gobbledegook. 

It’s available from high street shops for 
£17.90. 

‘Another of the smaller software 
houses in this country has joined together 
with one of the big boys to make 
distribution faster and more reliable. 

English Software has signed an 
agreement with US Gold to make the 
‘American firm and sole distributor of 
English Software's new products. If you've 
ever had any trouble getting hold of the 
latest English Software then perhapsit will 
be easier from now on. 

If you live in London or you come to 
town to do the occasional bit of shopping 
‘or business then you might like to pay a 
visit to the Commodore centre at 
Gultronic in Tottenham Court Road. 

Gultronic decided to open the centre 
to meet a growing demand for 
Commodore products. Gultronic’s Sam 
Tulsiani said: “The Christmas season was 
very buoyant this year and our major 
problems were supply and not demand. 
Commodore products are of a high 
standard with a good range and the 
company is stable, that is why we decided 
to invest in the centre.” 


The Commodore holiday offer 


He continued: “We are convinced 
there is a good future in the home 
computer market as long as people put 
themselves behind the products. 

Following last. month's mention of 
CRU’s new label we now have some more 
information on the subject. A company 
spokesman said: “Nu Wave has been 
developed for the computer user who has 
grown tired of the traditional arcade 
game and adventure game and is looking 
for a refreshing altenative. We are 
confident that Nu Wave will make a great 
impact on the software market in 1986.” 

There are no Commodore programs 
available on the Nu Wave label at the 
moment but look out for it in the near 
future. 


Hard 
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Miracle Technology has just launched the 
new 64 Multimodem, It gives access to not 
only Prestel, Micronet, Microlink and 
viewdata services but also to databases, 
bulletin boards, electronic mail, telex and 
user-user communications. 

The 64 Multimodem isa complete data 
comms solution — autoanswer, autodial 
‘on it has all software on board in ROM. It 
is menu-driven and. multi-speed and 
supports CCITT V21/23 and Bell 103 
standards handling baud rates of 300/300, 
1200/75 and 75/1200. Functions include 
save and print frame, auto mailbox with 
edit and save and telesoftware 
downloading. 


The cost of the new modem is £98.50 
(£116.15 including VAT and UK delivery). 


Commodore .is running another 
holiday offer with purchases of new 
computers. The Commodore 64 
compendium and the new 128 are just two 
products which come complete with up 
to £250 off a holiday for two. 

The offer is valid on a full range of 
Commodore peripherals including the 64 
Compendium, Commodore 128, disk 
drives, monitors and printers. 

Each product contains five £50 
vouchers which are redeemable against a 
variety of holiday from leading tour 
operators from Club 18-30 to CTC cruises. 

‘Commodore's Chris Kaday said: “Our 
unique holiday offer last year was an 
enormous success, so ‘Passport to 
Pleasure’ is really a variation on a proven 
theme. Our retailers are absolutely 
delighted and so, we believe, are our 
customers, It just goes to show what alittle 
imagination and creativity can do in a so- 
called shrinking market.” 

The vouchers are valid on any holiday 
taken before the end of October 1987. 
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FREE Electronic Mail . . . International 
Telex . . . 10 National Chatlines (Interactive 
Bulletin Boards) . . . 70,000 users across the 
Kee eraehannine ... Multi-User 
Interactive Strategy Games 


Instant computer news . . . Hardware and 
software reviews . rvectunieal features . 
Hints and tips . Ror line business ites. 
and features 


FREE and discounted quality software to 
download direct to your micro—24 hours a 
day 


300,000 pages of information on the huge 


PRESTEL Prestel database 


PRESTEL is trademark of British Telecommunications 


for just 20p a day 


p------------ 


To: Micronet 800, 8 Herbal Hill, London EC1 
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Micronet 800 I __Telephone No____ | 

8 Herbal Hill, London EC1R 5EJ | | 
Telephone: 01-278 3143 Age. Micro. natal 
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This month CRL and 


competition. 


If you used to have a Meccano 
kit when you were knee high to 
a grasshopper then you'll 
probably be very interested in 
this month’s prize. We got 
together with CRL to offer you, 
as first prize, a Robotrix Master 
Set. You can use it to build your 
‘own robots and you can even 
make them mobile because j 
there are four motors included. 
The runners-up prizes wili I 
be especially attractive to our! 
rapidly growing number of C- 
16 and Plus/4 readers. There I 
are 25 copies of the Berks | 
Trilogy from CRL. 


How to Enter 


Study the two cartoons. 
There are a number of 
differences between them. 
Mark the differences which J 
you find on the cartoon 
Attached to the entry coupon. ! 
Fill in the coupon clearly and 
carefully and seal it in an 
envelope. Write your answer 
on the back of the envelope [| 
and send it to: CRL Compet 
tion, Your Commodore, No 1] 
Golden Square, London W1R 
3AB. Closing date: Friday 30] 
May, 1986. 


The Rules 


Entries will not be accepted ! 
from employees of Argus! 
Specialist Publications, CRLE 
and Alabaster Passmore and 
Sons. This restriction also! 
applies to employee's families I 
and agents of the company. | 

The How to Enter section | 
forms part of the rules. The 
editor's decision is final and no 
correspondence will bey 
entered into. 


Ling teas — 


1 commodore, No 1 Golden Square, London W1R 3AB. 
1 Closing date: Friday 30 May, 1986. 


CRL Competition Ent 


Name ... 
Address .. 


post code 


Send your entry to: CRL Competition, Your 


Don't forget to write your entry on the back of your envelope 


The result of unique co-operation between three ace software developers 
and the Biggles film production company, Biggles- The Untold Story will 
knock you right out of the air! Is a multi-parl arcade strategy game in 
which each part must be completed to reach your final goal 


In the air, on the rooftops, on the ground, or in the trenches 
YOU CAN BE A HERO! 


Coming In May Commodore 64 £9.95 tape, £12.95 disk 
Spectrum 48K £9.95 tape 


Amstrad CPC 
7 
2, Paulton, Bristol BS18 5LQ 


Coming in June £9.95 tape, £14.95 disk 


When you are designing a game one of the longest jobs is de- 
signing the sprites. If you are good at art then fine, if not your 
next monster will probably end up looking like a square box 
with legs. 

Now, Your Commodore comes to the rescue once again 
with Sprite Ideas. If you have designed any sprites for games 
and you don’t mind other people seeing your masterworks 
then why notsend them into us. Each month we will be offering 
£10 for the best entries. 

Your sprites can be anything at all (within reason), if you've 
designed a series of animated characters then send in the lot 
We'd love to have a look at them. 

So, next time you are after an Ogre to put in your new game, 
have a look in this section of the magazine and you may find 
just what you are looking for. 


This month's sprites are all by Kevin Peppin from Little Neston, South Wirral. 


100 : RACING CAR ( LEFT ) 

101 DATA0O0, 000,000, 000, 000, 018, 000, 258 
102 DATA0SB, 003, 085, 238, 003, 255, 235, 003 
103 DATAL27, 233, 003, 255, 165, 003, 255, 165, 
104 DATAOOS, 255,255, 063, 213, 085, 213, 117 
105 DATAZSS, 255, 245, 169, 223, 245, 149, 255 
106 DATA24S, 253, 255, 255, 253, 285, 255, 189 
107 DATA25S, 255, 253, 255, 255, 255, 285, 252 
108 DATAOGI, 255,252,015, 063, 240,000, 000 
109 1 RACING CAR ( RIGHT } 

110 DATA, 000, 000, 240, 000, 000, 172, 255 
111 DATAOOO, 187, 085, 192,295, 255, 192,107 
112 DATA25S, 192,090, 255, 192, 090, 255, 192 
113 DATAZ5S, 285, 192, 085, 087,252,255, 095 
114 DATAOB7, 106,095, 285, 106, 095, 247,127 


115 DATAO9S, 255, 127, 255, 255, 124,255,255 130 DATAZSS, 208, 015, 255, 208, 063, 252, 000 
114 DATAL27, 255, 255, 255, 255,255, 124,043 131 DATAQGS, 252, 128, 063, 255, 064, 065, 255 
117 DATAZSS, 240, 063, 258,000,015, 252,000 132 DATA208,015, 240, 208, 003, 254, 000,001 
118 1 BOMB 133 DATAL25, 128, 000,127,080, 193, 285, 064 
119 DATA0D,000,000,000,001,004,000,004 134 DATAZI1, 253,000, 055, 244, 000, 063, 208 
120 DATAOGO,000,012,000,000,063,000,000 135 DATAD00, 015,064, 000,003,000, 000,000 
121 DATAOBS, 064,001, 101,080,001, 165,080 136 1 WITCH 

122 DATAOOS, 149,084, 006, 149,064, 005,085 137 DATAOOS, 192, 000,015, 240, 000, 010, 252 
123 DATAOB4, 005,085, 084,005, 085,084,008 138 DATA, 002,176, 000,040, 191,000, 032 
124 DATAOGS, 084, 005, 085, 252,001,085, 240 139 DATAIBB, 000,002,148, 064,002, 085, 064 
125 DATAOO1,095, 240,000,255, 192,000,063 140 DATAOOO, 084,000, 000,081,000, 001,069 
126 DATA000,000,000,000,000,000,000,000 141 DATAOOO, 001,021, 064,011,005, 079, 249 
127 1 GHOST 142 DATAOBS, 127,000, 085, 063,000, 085, 015 
428 DATAODO,000,000,000,000,000,000,052 143 DATADO0, 018,000, 000, 000,000, 000,000 
129 DATA0OO, 000, 253,000,003, 255,064,015 144 DATA00D, 000,000, 000,000, 000, 000,000 


Allen Webb comes to 


the rescue of budding} 


PROGRAM: EXAMPLE 


jadventure 


programmers. 


IN MY SHORT ADVENTURE 
series last year, | suggested a 
number of ways of saving 
memory when writing 
adventures. In this article, | will 
describe some machine code 
routines which will actually do 
the job for you. Since each 
routine requires a set of data 
tables, | have written three 
editors in Basic which will allow 
you to create the necessary 
data bases. 

There are three areas for 
real saving: 
1. The interpretor 
2. The storage of text 
3. The storage of objects 

In order to offer the largest 
possible portion of RAM for 
Basic, | have used the area 
behind the ROMs. The 
memory map of the system, 
assuming that you use all three 
routines, is: 


$8600-$95FF Object 
descriptions 
$9600-S96FF Link word table 
$9700-S9AFF Verb table 
$9B00-$9EFF Noun table 
$9F00-S9FFF Text work area 
SAQ00-SBFFF Lower text area 
$C000-$C1BE _Interpretor 
$C200-SC2FF Buffer 
$C900-$C9B9 Object 
manipulation 
code 
$C400-$C4FF Object location 
table 
$CBO0-SCCFF Low area tables 


a Se | 


18 POKE 56,134: CLR 

20 SYS 679, "OBJECTS, B, 34304 

‘36 SYS 679, "OBJECTS.1",8, 
56176 

49 SYS 679, "VOCABULARY", 
38406 

45 SYS 679, *TEXT®,8, 40960 

46 SYS 679, *TEXT.T",8, 51968 

‘5 POKE 40705, 0:POKE 48706, 6 
sPOKE 53281, 15 

KE 53289, 15 

INT CHRS (147): 

55 GOSUB 156 

66 SYS 49152, 0,21 

76 IF PEEK(40714)=255 THEN 1 


+ LI=PEEK(48713) 

90 ON VE GOSUB 126,158,198, 
20 

100 POKE 781,21: POKE 782,6 
+ POKE 783,03 SYS 65528 

116 PRINT*(SPC391" GOTO 68 

120 REM TAKE 


136. IF PEEK (50176+0B)()LO TH 
EN PRINT CHRS(147)"I CAN’ 
T FIND IT*:RETURN 

148 POKE 58176+0B, 255, 
+ PRINT CHRS(147) *TAKEN® 
RETURN 

150 REM LOOK 

155 PRINT CHRS (147)CHRS (31) ; 
18YS 51456, L0-1 

160 PRINT'I CAN SEE: "CHRS (28) 

178 SYS 49926,LO: IF PEEK(S@ 
163)=255 THEN PRINT*NOTHI 
NG OF VALUE* 

186 RETURN 

198 REM INVENTORY 

208 PRINT CHR$(147) "YOU'RE 
CARRYING" 

218 SYS 49926, 255 
+ IF PEEK(S@103)=255 THEN 
PRINT CHRS (28) *NOTHING 


228 RETURN 

230 REM DROP 

‘248 IF PEEK(50176+0B)<)255 T 
HEN PRINT CHRS(147) *YOU 
DON’T HAVE IT*:RETURN 

250 POKE 50176+0B, LO 
+ PRINT CHRS (147) "DROPPED" 
RETURN | 


PROGRAM: LOADER 


| 


16 RENNtaEeRaaRSERE 

26 REMS{SPC2)PEEKALLESPC2]9 

30 REMESANAEaNttE 

48 DATA 32,253,174, 32,138, 
173, 32,247, 183, 165, 20, 164, 
24,133, 188, 152, 181,160, 8 

50 DATA 149, 52,133, 1,177,188, 


141, 232, 3, 169,55, 133, 1,96 

466 FOR I= TO 32:READ X 
SPOKE 5094441, X:NEXT 

79 RENELARERBERAEEEE 

88 REMS SAVE BLOCK ¥ 

90 REMBERNESSEAEEtE 

106 DATA 32,212,225, 32,253, 
174, 32,138, 173,32,247, 183, 
165, 28,72, 165, 21, 72,32, 253 


$CD00-SCEFF High area tables 
$CFOO-SCFFF Buffer 
$EQ00-SFFFF High text area. 

Using this system, you have 
the following capabilities and 
limitations: 

32255 bytes for Basic useage. 
1536 bytes ($C500-$CAFF) for 
other purposes. 

Up to 

255 verbs 

255 nouns 

63 link words 
255 objects in 
locations 

16382 bytes for use for up to 512 
messages or descriptions 

Whilst this may not be up to. 
the Quill’s standards, it's 
enough for quite a significant 
adventure 

The editors use three 
machine code routines for the 
loading and saving of data 
blocks. These are included 
with the other machine code in 
Loader 1. I’ve kept the six 
blocks of code separate so that 
you can omit the utilities at a 
later date. If you choose to use 
them in your final adventure 
(certainly SAVE and LOAD), 
they occupy spare space 
between the ROMs which is 
low in memory so that they 
don’t interfere with the main 
code. I'll discuss these utilities 
later. 

The interpretor is similar to 
the one in my earlier series but 
has been rewritten so as to be 
more compact, It is called by a 
simple SYS 49152,X,Y. The 
prompt for input will start at 
co-ordinates X and Y. The 
interpretor will accept up to 79 
characters and delete is 
available to correct your input 
The text is scanned to extract 


any of 255 


the first, second and last words. 
The first is called the verb, the 
second the link word and the 
last the noun. Here are some 
examples: 


a SS ea Se 


110 DATA 174,32, 138, 173,32, 
247, 183, 165, 1,41, 254, 133, 
1,166, 20, 164, 21, 104, 133,21 


Input Verb 
look look 
take sword take 
take the take 
big sword 


Link word Noun 
— sword 


the sword 


These words are checked in 
the vocabulary and you are told 
if any are not recognised. The 
positions of found words in the 
vocabulary are returned in 
three registers and an error 
register tells you if the search 
has shown any unknown 
words. These registers are: 


Verb register — 40711 

Noun register —40712 

Link word register — 40713 
Error register — 40714 (0=no 
error, 255=word not recognised) 


When using the interpretor, 
the error register allows you to 
loop back for a new command 
if the last one is not under- 
stood. The example program 
given later shows this. 

In order to fit the 
interpretor into your own 
colour scheme, location 40705 
holds the colour of the prompt 
and 40706 holds the colour of 
the input command. 

Listing 1 gives an editor for 
the creation of a vocabulary. 
The editor is menu driven and 
the functions allow you to 
create, alter, load and save the 
vocabulary. There is also an 
option which allows you to test 
the interpretor and get to know 
its operation. The main thing to 
remember is to erase the tables, 
if you plan to create a new 
vocabulary. Whilst the editor 
will accept words of any length, 
only the first four characters 
are used. Words shorter than 
four letters are padded with 
spaces. 

One of the biggest 
consumers of memory is text. 
Clever companies such as Level 
9 use data compression to fit 
more in, | will content myself 
with simply using “unused” 
RAM. The code provides two 
commands: 


SYS 51456,MN 


prints message number MN 
from the area behind the Basic 
ROM (the lower text area). 


SYS 51459,MN 


126 DATA 184, 133, 26, 169,28, 
32,495,225, 165, 1,9,1,133,1, 
% 


130 FOR 1=58688 TO 50742 
|READ X:POKE 1, X:T=T#X 
+ NEXT 

140 RENtsnestaasasazats 

150 RENE RELOCATE LOAD $ 

10 REMEeatstasesaneastt 

176 DATA 32,253,174, 32, 158, 
173,32, 166, 182, 141,131,3, 
160, 8, 177,34, 153,60, 3, 208 

186 DATA 264, 131,3, 208, 245, 
32,241,,2, 165, 28, 141, 138, 3, 
32,241, 2, 165,26, 164,21, 133 

196 DATA 251, 132,252,169), 
174,130,3, 166,832, 186, 
285, 173,131,3, 162,60, 16,3 

206 DATA 32, 189,255,169, 8, 
166, 251, 164,252, 32,213, 
255, 96, 32, 253, 174, 32,138, 
173 

216 DATA 32,247, 183,96,0 

226 FOR 12679 TO 763 

230 READ X: POKE 1, X:NEXT 

240 REMDEHEAESEEREE 

250 REMY TEXT M/CLSPC218 

268 RENNABEEAEAEEEE 

276 DATA 76, 16,201, 76,71,201, 
32,253, 174,32, 138, 173, 32, 
247, 183, 96,32, 6,201, 164 

286 DATA 26,148, 68, 3, 185,9, 
263, 133,98, 185, 8, 204, 133, 
99,126, 165, 1,41, 254,133, 1 

290 DATA 160,0,177, 98, 248, 6, 
153, 8,207,208, 208, 246, 153, 
6, 207, 165, 1,9) 1, 133, 1,88 

DATA 169,8, 166,267,32,30, 
171,96) 32, 6,261, 164 
149,68, 3, 185, 6,205, 133,98 

316 DATA 185,0,266, 133, 99, 
126,165, 1, 41,253, 133,1, 
160,68, 177, 98, 248, 6, 153, 
267 

326 DATA 200, 268, 246, 153,0, 
287, 165, 1,952,133, 1,88, 
169, , 166, 267,32, 30, 171,96 

336 FOR 1=51456 TO 51581 

348 READ X: POKE 1, XsNEXT 


350 REMUANSRERNCAEE ETRE 
348 RENE INTERPRETOR M/C 4 
376 REMsaaataasenaaaatat 
386 DATA 32,24, 192,32, 79,192, 
32,135, 192,173, 3,159, 265, 
6, 159,248, 6, 32, 188, 192 
396 DATA 32,252,192, 96,169, 8, 
141,9, 159, 141,3, 159, 141,4, 
159, 141,5, 159, 141, 9, 159 
406 DATA 141,8,159, 141,7, 159, 
141, 10,159, 16,0, 169,32, 
153,9,194, 269, 192, 86, 144 
419 DATA 248, 166,8, 153,128, 
194,153, 166, 194, 153,200, 
194, 206, 192,40, 268, 242,96 
426 DATA 32, 66,193, 72,32,66, 
195,178, 104, 168, 24, 32,248, 
255, 173, 1, 159, 141, 134,2 
436 DATA 169, 62,32, 218,255, 
173,2, 159, 141,134, 2,168, 8, 
32,267, 255, 201,13,246,7 
449 DATA 153, 9,194, 208, 74, 
112, 192, 169, 0, 153, 6,194, 
149, 8, 159, 96, 160, 8, 185, 8, 
174 
450 DATA 261,32,240,9, 153, 
128, 194,268, 264, 6, 159, 208, 
246, 148, 3, 159, 169, 0, 133, 
251 
466 DATA 169, 151,133,252, 169, 
126,133, 253, 169, 194, 133, 
254, 173, 12,159, 141, 11, 159 
476 DATA 32,78, 193, 48, 4,252, 
142,7, 159, 96,172, 8, 159, 
185, 8, 194,281, 32,248, 3, 136 
489 DATA 208, 246, 208, 162,8, 
185, 9, 194,157, 168, 194,232, 
206, 264,9, 159, 208, 243, 142 
490 DATA 4,159, 169, 8, 133,251, 
169, 155, 133,252,169, 166, 
133,253, 169, 194, 133, 254 
500 DATA 173, 13,159, 141,11, 
154,32, 78, 193,48, 4,232, 
142,8, 159, 96, 24, 173,3, 159 
516 DATA 199,4,159, 185, 1,205, 
4, 159, 268, 1, 96, 172,3, 159, 
206, 162,09, 185, 8,194, 201 
526 DATA 32,248, 7, 157,200, 
194,232,260, 268,242, 142,5, 
159, 169, 0, 133, 251, 169, 158 
536 DATA 133,252, 169, 268, 133, 
253, 169, 194, 133, 254, 173, 
14,159, 141, 11, 159, 32,78 
546 DATA 193,48, 4,232,142, 9, 
159, 96,32, 253, 174, 32,138, 
173,32,247, 183, 165, 28,96 
556 DATA 169,0,162,8, 141,19, 
159, 166, 8, 177, 253, 269,251, 
208, 8, 268, 192, 4, 268, 245 


546 DATA 76,179, 193,232, 236, 
11,159, 248, 16, 24, 165, 251, 
105, 4, 133, 251, 165, 252, 105 

578 DATA 6, 133, 252, 76, 85,193, 
166, 9, 169, 13,32, 218, 255, 
173, 1,159, 141, 134, 2,17 

586 DATA 253,201,32,248,7,32, 
218, 255, 208, 76,136, 193, 
160,0,173, 2,159, 141, 134 

596 DATA 2, 185, 186, 193,261,0, 
248, 16,32, 216, 255, 208, 76, 
157, 193,32, 210, 255, 169 

400 DATA 255, 141, 18,159, 96, 
32,73, 83, 32, 78,79, 84,32, 
73,78, 32, 77,89) 32,68, 73, 67 

616 DATA 84, 73,79, 78,65, 82, 
99,0 

626 REM 

636 FOR 1=49152 TO 49612 

646 READ X: POKE 1, XeNEXT 

650 REMENSnEsEsaEaEsHE 

666 RENE OBJECTS H/C 

676 REMMEAESNEREEEEAES 

686 DATA 74,6, 195,76, 112,195, 
32,166, 195, 165, 26, 141, 182, 
195, 169, 255, 141, 183, 195, 

696 DATA 160, 9,149,177, 195, 

140,178, 195, 172,178, 195, 

185, 8, 196, 205, 182, 195, 208 

DATA 62,169,0, 133,251, 

169, 134, 133, 252,173, 178, 

195,141,177, 195,173,177, 

195 

718 DATA 240, 21,24, 185,251, 
105, 16, 133, 251, 165,252, 
105, , 133, 252,286, 177, 195, 
173 

726 DATA 177,195,208, 235, 166, 
6,177,251, 32, 218, 255, 268, 
192, 16,144, 246, 169, 13,32 

730 DATA 216, 255, 169, 8,141, 
183, 195, 238, 178, 195,173, 
178,195, 265, 184, 195, 208, 
172 

748 DATA 94,32, 166, 195, 164, 
26,136,140, 177, 195, 32, 166, 
195, 165, 28,141, 189, 195, 32 

756 DATA 166,195, 165,20, 141, 
181, 195, 172,177, 195, 185,, 
196, 205, 186, 195,248, 6,169 

746 DATA 255, 141, 183, 195,96, 
173, 181, 195, 153, 6, 196,169, 
9,141, 183, 195, 96, 32,253, 

716 DATA 174, 32,138, 173,32, 
247, 183,95,0,8,8,9,0,0,6, 
6,255 

786 FOR 1=49926 TO 50184 

796 READ X: POKE 1,X2 NEXT 


STE 


LOLS | 


PROGRAM: LISTING 1 


16 PRINT CHRS(147) 

26 TA(1)=3B656: TL(1)=40716 
+ ML(L)=256: REM VERB TAB 
Le 

TA(2)=39680: TL(2)=40717 


le 

49 TA(3): 
+ MLC 
LE 


REN LINK TAB 


‘58 VN=40707: NN=40708:! 
obs 
i} 


0789 


EB 

90 POKE 53280,1 
12:POKE 646, 
147) 

106 POKE 46705, 0:POKE 46786,1 

118 X=6:¥=5:G0SUB 936 
SPRINT*ADVENTURE. INTERPRE 
TOR EDITOR" 

Y=72G0SUB 938 

:PRINT*L. ADD A WORD 10 

DICTIONARY* 

2¥=8:G0SUB 938 

NINT*2. CHANGE A WORD" 

GOSUB 938 

INT". LIST DICTIONARY* 

j0SUB 938 

TEST INTERPRETO 


POKE 53281, 
INT CARS ( 


126 


138 


SAVE/LOAD DATA* 

sGOSUB 930 

ERASE TABLES" 

180 GET I8s1F 18¢*1"0R 18)*6 
“THEN 188 

196 ON VAL(I$)GOTO 380,318, 

8, 470, 660,568 

266 Fi GOSUB 768 

248 IF PEEK(TL(N))=8 THEN PR 
INT*ECLEARINO WORDS. IN 
TABLE": GOSUB 968 
#PRINT*CCLEAR]":GOTO 118 

226 WN=1:PRINT CHRS(147) 

230 PRINT*WORD #*WN*CSPC2]"; 

240 FOR I=1 TO 4 

250 PRINT CHRS (PEEK (TA(N) +1 
$#(WN=1) 84) 2NEXTSPRINT 

266 WNSWN+L:1F WNCD26 THEN 2 
0 

276 GOSUB 908 

286 PRINT CHRS(147):60TO 230 

296 IF WN¢=PEEK(TL(N)) THEN 2 


‘7 


GOSUB 990:PRINT CHRS(147) 
36070 118 
316 GOSUB 760 


326 INPUT*{DOWNSJINPUT WORD"; 
wos 

330 IF LEN(WOS))4 THEN WOS=L. 
EFTS(WOS,4):60TO 358 

340 IF LEN(WOS)<4 THEN WOS=H 
OS+CHRS(32):60TO 348 

350 FOR I=1 10 4 

‘366 POKE(TA(N)+1-1+(WN-1) 84), 
ASC (MIDS (WOS, 1, 1)) :NEXT 

376 PRINT CHRS(147):60TO 119 

380 G0SUB 768 

390 WNEPEEK(TL(N)) #1 
SIF WNCHL(N) THEN 408 

395 PRINT*NO ROOM IN TABLE" 
:FOR D=1 10 3000:NEXT 
16070 466 

498 INPUT*CDOWNSIINPUT WORD"; 
wos 

410 IF LEN(WOS)>4 THEN WOS=L 
EFTS(WOS,4):60T0 438 

426 IF LEN(WO$)<4 THEN WOS=H 
OS+CHRS (32) :60T0 428 

430 FOR T=1 TO 4 

440 POKE(TA(N) #1-1+(WN~1) 44) , 
ASC (MIDS (WOS, I, 1)):NEXT 

450 POKE TL(N) ,PEEK(TLIN)) #1 

466 PRINT CHRS(147):G0TO 118 

476 PRINT CHRS(147) 
2VS 1284096,8, 22 

486 PRINT*CHOME, BLACK VERB 

NUMBER" PEEK (40711) 

496 PRINT*NOUN NUMBER*PEEK (4 
9712) 

‘50 PRINT*LINK WORD NUMBER*P 
EEK (46713) 

510 PRINT*CRVSON, DOWN, RIGHT, 
SPC7IPRESS A KEY TO CONTI 
NUECSPC8)* 

520 PRINT*CRVSON, DOWN, RIGHT, 
SPCI@IPRESS $ TO EXIT 
(sPci3i* 

530 GET [$s IF 1$=**THEN 538 

540 IF [$="4*THEN PRINT CHRS 
(147) 26070 118 

558 GOTO 478 

566 PRINT CHRS(147) "CLEARING 

TABLES" 

‘570 FOR 1=40716 TO 40718 
sPOKE 1, O:NEXT 

580 FOR 138408 TO 49783 
SPOKE I, 32:NEXT 

590 PRINT CHRS(147):G0TO 118 

669 PRINT CHRS(147)5 
SINPUT*SAVE OR LOAD (S/L) 


"is 


610 IF Is= 

620 IF I 

636 GOTO 468 

640 INPUT*CDOWN2JFILE NAME"; 
FIs 

650 PRINT" CDOWN2JSAVING...." 

68 SYS 56688 FI$,DE, 2, 3848, 
40959 

670 PRINT CHRS(147):G0TO 118 

686 INPUT*CDOWN2JFILE NAME"; 
FIS 

696 PRINT*CDOWNZILOADING. ..* 

766 SYS 679,F18,DE, 38408 

71 PRINT CHRS(147):60TO 116 

726 PRINT CHR$(147) *CURRENT 
DEVICE IS*DE 

736 INPUT NEW DEVICE" DE 

740 PRINT CHRS(147):60TO 118 

756 END 

786 PRINT CHRS(147) 
sINPUT*WHICH TABLE(V/N/L) 
518 

776 IF 1$="V*THEN Net 
36070 B10 

786 IF 1$=*N*THEN N=2 
26070 819 

796 IF IS="L*THEN N=3 
26070 B18 

866 GOTO 769 

816 IF Fle1 THEN FL= 

826 INPUT*CDOWN2) 
WORD NUMBER"; WN 

825 IF WNDML(N) THEN 828 

836 IF WNDPEEK(TL(N))OR WN=6 

THEN 826 

PRINT" CDOWN2]WORD NO*HN* 

18 "5: 

850 FOR Ist TO 4 

866 PRINT CHRS(PEEK(TA(N) +1~ 
1+ (WN-1) 940) 5 NEXT: PRINT 

870 INPUT*CDOWN2] 
OK TO PROCEED"; 18 

886 IF 18¢>*Y*THEN 768 

290 RETURN 

900 PRINT*ERVSON, DOWN, RIGHT, 
SPC7JPRESS A KEY TO CONTI 
NUECSPCEI* 

910 GET IS:IF I$=**THEN 918 


THEN 648 
“THEN 686 


RETURN 


926 RETURN 

936 POKE 781,Y:POKE 782, x 
:POKE 783,028 65520 
RETURN 


946 RENDERNSEEAAaNeRasEaaAtE 
950 RENE INTERPRETOR EDITOR 

1 
9oo REMBNNRREAAAReeSAaattE. 


” NI a ST 


performs a similar function on 
text stored behind the Kernal 
ROM (the upper text area). 

The start addresses of the 
messages are kept in two 
tables. The function of the 
editor in Listing 2allows you to 
create the text and sets up the 
tables accordingly. 

In order to allow you to 
store messages of any length, 
up to a maximum of 255 
characters, the editor does not 
allow you to edit text that has 
been entered. | therefore 
strongly recommend that you 
write down your text before 
creating the text database. And 
enter it with care! 

‘Again, menus are used to 
aid editing. The editor acts 
mainly on the lower text area, if 
you wish to create a database in 
the upper text area, commands 
are provided which convert a 
lower area file to an upper area 
file. Again, you may save and 
load text but in this case two 
files are saved: The text fileand 
the table file 

The table file has the same 
name as the text file but is 
suffixed by .T. For example: 
Textfile name — WOMBAT 
Tablefile name — WOMBAT.T 

‘Obviously the files are 
loaded to different addresses. 
If you use the loader provided, 
the start addresses are: 

Low area — text address = 
40960, table address = 51968. 
High area — text address = 
57344, table address = 52480. 

You can include colour 
changes or control codes into 
text by pressing the corres- 
ponding CTRL or CBM key 
combinations when entering 
text. Before creation of new 
text files, don’t forget to use the 
erase option. 

Finally , what do we do with 
objects? In any adventure you 
need to know where objects 
are kept so you can take, drop 
‘or look at them. Two sets of 
data are saved by the editor in 
Listing 3. 

First there is a table of 
object names, Each can be up 
to 16 characters long. A second 
table keeps a record of the 
location of the objects (this 
table starts at 50176). 

The machine code lists the 
items held at a specific location 
and has the syntax: 


SYS 49920,LO 


where LO is the location 
concerned. Each item is 


printed on a new line so you 
must allow for this in your 
screen format. This option can 
equally be used for inventory 
or look commands. 


To perform Inventory, you 
then use: 


JO PRINT “YOU'RE CARRYING:” 
20 SYS 49920,255 


| have assumed that location 
255 refers to possessed objects. 
To perform Look, use: 


10 PRINT “YOU CAN SEE:”” 
20 SYS 49920,LO. 

Here, LO is the location 
number. 

To check whether an object 
is available for taking, 
dropping, examining etc, 
simply PEEK the relevant entry 
for the object in the position 
table. 

As with the text editor, the 
object data base is saved as two 
files: the object table and the 
position table. As before, the 
position table has the same 
name, albeit suffixed by .T. 

The Save and Load routines 
given earlier may well be of 
value in your own programs. 
The Save transfers the block of 
memory from SA to FA to 
device DE and has the syntax: 


SYS 50688 Filename,DE,2,SA,FA 


The Load routine is 
extemely handy. You will know 
that if you use LOAD with a 
secondary address of one (to 
force a relocated load) that the 
program reruns, The Load 
allows you to load a block of 
data to any specified address 
SA and does not try to rerun 
your program. The syntax is 


SYS 679,File name,DE,SA 


Study the example program 
which shows the use of the 
three sets of routines. 

The routine assumes the 
following: 
1. The verbs Take, Look, Inven- 
tory and Drop occupy the first 
four positions in the verb table 
i.e. Take = 1, Look = 2 ete. 
2. There is an object eg. a 
sword, in the noun table. 
3, The object specified in 2is in 
location 1. 
4, The location descriptions 
start at message 0 in the lower 
text area. 
5, All possessed items are in 
location 255. 


PROGRAM: LISTING 2 


19 POKE 53280, 11:POKE 53281, 
12:POKE 646,0 


26 FOR 126 TO 79: BLS=BLS+CH 
R$(32) sNEXT 

‘30 POKE 658,128 

48 DE=8 

56 REM 

66 REM MAIN MENU 

76 REM 


88 PRINT CHRS(147): X=14: 
+ GOSUB 1416:PRINT*MAIN 
MENU": 

9 GOSUB 1416:PRINT"1, LOWER 
TEXT AREA" 

106 Y=11:G0SUB 1419 
:PRINT"2, CONVERT FOR UPP 
ER AREA" 

118 Y=12:60SUB 1418 
tPRINT"3, SAVE/LOAD DATA* 

120 Y=13:G0SUB 1410 
sPRINT"4, DEVICE® 

130 Y=14:608UB 1410 
:PRINT"S. LOAD & CHECK 
IN UPPER AREA" 

140 GET T821F 18¢*1*0R 18)*5 
“THEN 140 

150 ON VAL(I$) GOTO 196,678, 
750, 1090, 1158 

166 REN 

170 REM TEXT AREA MENU 

199 REN 


199 PRINT CHRS(147): X=14: 
2G0SUB 1416:PRINT* LOWER 
TEXT AREA" 

206 X=15:Y=10:608UB 1419 
:PRINT'. VIEW TEXT" 

216 X=15:Y=11:608UB 1416 
:PRINT*2,ENTER TEXT® 

15:1=12:608U8 1418 

PRINT*3,ERASE TABLES™ 

215: ¥513:605U8 1418 
sPRINTA,HAIN. MENU" 

246 GET Is:1F 18¢*0°0R 18)"4 
"THEN 248 

256 ON VAL(IS) GOTO 260,418, 
586, 86 

266 PRINT CHRS (147) 

270 REM 

286 REM VIEW TEXT 

290 REM 

306 HNO 

316 IF PEEK(52224+HN) =8 THEN 
198 

328 PRINT*CREDIMESSAGE # 
{BLACK]*; MN 

336 PRINT CHRS (158) 
18S 51456, HN:PRINT 

340 PRINT* 


220 


238 


{BLACK]" 
‘356 GET ISsIF 18=**THEN 358 
3o0 MNSHN+1:60T0 318 
378 GOTO 198 
386 REN 


396 REM ENTER TEXT 


409 REM 

419 PRINT CHRS(147) M0 

426 IF PEEK(5S2224+HN): 
44g 

436 MNSHN41:G0TO 428 

440 IF MN=@ THEN SA=40960 
SFASSALGOTO 485 

450 SA=PEEK(52224+MN-1) 8256+ 
PEEK (S1968+HN-1) 

466 FASSA 

476 SYS 50944, FA IF PEEK (190 
6)= THEN 485 

488 FASFA+1:G0T0 479 

485 FM=49151-FA: PRINT*CHOME 
FREE MEMORY="FH" BYTESY 

496 NS="MESSAGE #*+STRS (HN) 
+G0SUB 1290: IF SA=40966 
AND MN=@ THEN 519 

580 SA=FA+1: IF FAD49152 THEN 
198 

‘S51 POKE 52224+MN,SA/256 

‘520 POKE S1968+HN, 
SA-INT(SA/256) 8256 

525 IF FMCLEN(MES) THEN PRINT 
"NO ROOM FOR MESSAGE" 
FOR D=1 10 3606:NEXT 
36070 198 

‘530 FOR I=1 TO LEN(MES) 

S40 POKE SA-1+1,ASC(MIDS(MES, 
1,1)):NEXT:POKE SA+I, 6 
16070 190 

‘550 REM 

560 REM CLEAR LOWER AREA 

578 REM 

580 PRINT CHRS(147) "CLEARING 
TEXT TABLES* 

590 FOR MN=8 TO 254 

600 POKE S196B+HN, # 

POKE 52224+HN, 6: NEXT 

618 PRINT CHRS(147) "CLEARING 
TEXT AREA" 

626 FOR I= 40968 TO 49151 
+ POKE 1, B:NEXT 

638 GOTO 199 

640 REN 

450 REM CONVERT ADDRESS TABLE 

668 REM 

670 1=O:PRINT CHRS(147) "CONV 
ERTING ADDRESS TABLE" 

EK (5222441) 

IF 28 THEN 718 

698 POKE 52224+1,72+64 

708 I=L+1:1F 1<256 THEN 686 

716 GOTO 198 

726 REM 

738 REM SAVE/LOAD 

749 REM 

‘750 PRINT CHRS(147): X=14 


THEN 


686 


Bi MAS Sr a 


GOSUB 1410 

PRINT*SAVE/LOAD*: Y=1 
1 Xe3 

7o6 GOSUB 1416:PRINT'I. SAVE 
DATA 

778 Y=41:60SUB 1410 
:PRINT*2, LOAD DATA* 

786 GET I8:1F 18¢*0*OR 18)*2 
“THEN 780 

796 ON VAL(I$) GOTO 835,950 

88 REM 

816 REM SAVE DATA 

826 REN 

830 PRINT CHRS(147): X=14 

GOSUB 1418 
SPRINT*SAVE": Yet: X=18 

846 REM SAVE TEXT AREA 

856 PRINT CHRS(147) 
SINPUT "FILE NAME FOR TEX 
T AREA; FIS 

866 PRINT*CDOWNISAVING TEXT* 

870 SYS 59488 FIS,DE,2,40968, 
49151 

886 FIS=FIs+".T" 

896 PRINT*SAVING ADDRESS TAB 
Les" 

900 SYS 50688 FIS, DE,2,51968, 
52479 

916 GOTO 198 

926 REM 

936 REM LOAD 

948 REM 

986 PRINT CHRS(147): 

960 REM 

976 REM LOAD TEXT AREA 

986 REM 

996 PRINT CHRS(147)*LOAD TEX 
T AREA" 

1900 INPUT "CDOWNIFILE NAME*; 
FIs 

1616 PRINT*CDOWN 
LOADING TEXT" 

1626 SYS 479,18, DE, 40948 

1630 FIS=F184*.T* 

1949 PRINT*LOADING ADDRESS 
TABLES* 

1950 SYS 679,18, DE, 51948 
26070 198 

1966 REM 

1976 REM DEVICE 

1980 REN 

198 PRINT CHRS (147) "CURRENT 
STOREAGE DEVICE 1S*DE 

1108 INPUT*{DOWNIDEVICE® ; DE 

1118 6070 88 

1120 REM 

1138 REM CHECK UPPER AREA 


1148 REM 

115@ PRINT CHRS(147) 
SINPUT"FILE NAME";FIS 

1166 PRINT* CDOWNI 
LOADING TEXT TO UPPER ARE 
A':SYS 679, FI$,DE,5S7344 

1178 FIS=FIS+".1* 
sPRINT*CDOWNJLOADING ADDR 
ESS TABLES":SYS 679,FI$, 
DE, 52488 

1186 HN=6:PRINT CHRS (147) *TE 
XT IN UPPER AREA* 

1198 IF PEEK(S27S6#MN)=@ THE 
N 198 

1260 PRINT*CREDINESSAGE # 
(WHITE]*54N 

1218 PRINT CHR$(158) 
18VS 51459, MNsPRINT 

1220 PRINT* 

(BLACK]" 

1238 GET IS:IF I$=**THEN 1238) 

1240 WN=HN+1:G0TO 1198 

1258 GOTO 88 


1268 REM 

1278 REM INPUT A STRING 
1288 REM 

1298 NES="*: PRINT HS 


1300 GET 18: IF [$="*THEN 1300} 

1318 IF 1$=CHRS (13) THEN 1378 

1320 IF LEN(MES)=254 AND 18{ 
CHRS (26) THEN 1388 

1330 IF 18=CHRS(19)0R 1$=CHR 
S(LA7)OR 1$=CHRS (148) THEN 
1308 

1348 IF 1$=CHRS(26) THEN MES= 
LEFTS (MES, LEN(MES)~1) 
26070 1360 

1350 MES=HES#IS 

1368 PRINT CHRS(147) "FREE 
MEMORY="FH-LEN(MES) " BYT 
es 

1365 PRINT MS:PRINT MES 
+6070 1308 

1378 RETURN 

1388 REM 

1399 REM SET CURSOR TO X,Y 

1408 REM 

1410 POKE 781,Y: POKE 782, x 
+ POKE 783, SYS 65528 
+ RETURN 

1426 REM 

1430 REM spaaaeenaseaate. 

1448 REM & TEXT EDITOR # 

1450 REM susteneesssaase 


The important features of 
the example are: 
Line 10 - protects the data 
bases. 
Lines 20-46 - Load the data 
bases. 
Line 50 - Sets up the colours 
and the location number (LO) 
Line 55 - Tells you where you 
are i.e. performs LOOK. 
Line 60 ~ Requests a command 
Line 70 - Checks for an unrec- 
‘ognised command and clears 
the command area of the 
screen prior to requesting a 
new command. 
Line 80 - Extracts the key words. 
Note that the noun number 
must be decremented to be 
compatible with the object 
routine. (Nouns are numbered 
from 1to 255 and objects from 0 
to 254) 
Line 90 ~ Performs verb 

Note how the Take and 
Drop commands simply 
change the object position 
table. Location 50163 isan error 
flag for the object routine. If it 
contains 255, then it means that 
nothing was found (see lines 


| hope this example will 
show how simple these 
routines are to use and how 
compact routines become. 

Whilst I’ve tried to ensure 
complete compatibility 
between the three editors, 
Murphy's Law will guarantee 
that | will have missed some- 
thing somewhere. To ensure 
insanity-free work, | re- 
membered the following 
precautions. 


1. Before starting work with an 
editor and after using another 
editor: 
Save your latest database 
Reset the machine with SYS 
64738 
Load the machine code 
2. Regularly save your data 
base. 
3. Work out what the database 
will contain before starting 
work 

If you have any queries, 
study the editors, you should 
be able to sort them out. If you 
have any real problems, you 
can reach me via Your 


170 and 210). Commodore. 
:PRINT*CBLACK]* 
ysaciatte cies 38 PRINT CHRS (147) :T=42%=10 
:0SUB 150:PRINT*OBJECT 


1@ PRINT CHRS(147) :DE=8 
360SUB 33 
128 POKE 53288,12:POKE 53281 ,15| 


EDITOR" 
18:60SUB 150 
sPRINT*1, ENTER OBJECT* 


SUB 158 

TEST TABLES* 

30SUB 158 

CLEAR TABLES* 

SUB 15@ 

PRINT TABLES* 

ISUB 158 

. SAVE TABLES* 

:B0SUB 158 

LOAD TABLES" 

OSUB 158 

~ CHANBE DEVICE" 

@:60SUB 15@ 

sPRINT"B, CHANGE LOCATION* 

120 GET I$sIF 18<¢*1"OR 1$)*8* 
THEN 128 

138 ON VAL(I$) GOSUB 168,258, 
338,388 

148 GOTO 28 

158 POKE 781 
POKE 783 
RETURN 

168 PRINT CHR$(147) :01 

165 IF PEEK(5@176+0B)<>@ AND 
08¢255 THEN 08-08+1 
36070 165 

166 PRINT*NEXT AVAILABLE ENTR 
Y =*08 

178 INPUT "WORD (16 CHARS MAX 
ys hos 

180 IF LEN(WOS)<16 THEN WOS=W 
Os+* *:60T0 188 

198 WA=34304+0B816-1 

288 FOR I=1 TO 16: POKE WA+I, 
ASCMIDS (WOS 1 1)) :NEXT 

218 PRINT*CDOWNIPLACED IN TAB 
ue 

228 PRINT*CDOWNILOCATION OF 
“wOs* *;:INPUT LO 

238 POKE 58176+0B,LO 

24 RETURN 

258 PRINT CHRS(147) 
sINPUT “LOCATION® ;LO 

‘268 PRINT*CDOWNJAT LOCATION*L 
O* I CAN SEE" 

778 SYS 49928,LO 

‘280 IF PEEK(58163)=255 THEN P 
RINT*CDOWNINOTHING® 

298 Y=15:! SUB 158 
:PRINT*[SPC2 ,RVSON, SPC] 
PRESS $ TO EXITESPC11]* 

GET 1$:IF 14=**THEN 278 

F 18¢)*8*THEN 258 

320 PRINT CHRS(147) ;:RETURN 

S30 PRINT CHR (147) CLEARING 


ae 


eae 3. 
78 ¥ 


80 Y: 


90 
sPRINT"6 


KE 782, 
§ 65528 


+ POKE SO176+1 ,@:NEXT 
358 PRINT*CDOWNICLEARING TEXT 
368 FOR 134984 TO 38399 


SPOKE 1 ,@:NEXT 

378 RETURN 

388 PRINT CHRS(147) :WN=@ 

398 IF PEEK(S®176+WN)=8 THEN 
70 

4B WA=343B4+HNELO-1 
sPRINT"OBJECT*WN". "5 

410 FOR I=1 TO 16:PRINT CHRS{ 
PEEK (WA+I)) 5 NEXT 
:PRINT* AT LOC*PEEK (5176+ 
WN) 

420 WN=WN+L:IF WN=255 THEN 398 

438, 1F INT(WN/20) QOWN/28 THEN 
390 

A480 Y=22:%=@:605UB 150 
sPRINT*{SPC2 ,RVSON, SPC9] 
PRESS $ FOR MORESPC1@)" 

450 GET I:1F 15¢)*8*THEN 458 

468 PRINT CHRS(147) :60TO 390 

470 Y=22:X=8:60SUB 158 
:PRINT*[SPC2 ,RVSON ,SPC9] 
PRESS 4 TO EXIT(SPC18]* 

480 GET IS:]F 1$¢)*#*THEN 480 

498 RETURN 

580 PRINT CHRS(147) 
SINPUT"FILE NAME" ;FIS 

518 PRINT*DOWNISAVING TEXT. . 


528 SYS 50688 F1S,DE,2,34904, 
38399 

538 PRINT*[DOWNJSAVING TABLE. 
vat FS=F1S# 7? 

548 SYS 58688 FIs 0E,2,50176, 
50431 

550 RETURN 

568 PRINF CHRS(147) 
SINPUTTFILE NAME® E18 

570 PRINT*LOADING TEXT....* 

588 $15 679,F18,DE,34904 

598 PRINT*LOADING TABLE..." 
F1s=F1S4".T" 

608 SYS 679,F18,DE,58176 

610 RETURN 

1628 PRINT CHRS(147) 
SINPUT*DEVICE* DE RETURN 

638 PRINT CHRS(147) 
SINPUT*WORD  NUMBER® WN 

o4® PRINT*CDOWN]" 

58 WA=343044WNE16-1 

INT*OBJECT*HN* 

668 FOR I=1 TO 16:PRINT CHRS( 
PEEK (WAI) 5 2NEXT 
SPRINT" AT LOC*PEEK(50176+ 
wi) 

678 INPUT*{DOWNZINEW LOCATION 
30 

688 POKE S@176+WN,LO:RETURN 

o98 RENteesestsastststT 

708 REX OBJECT EDITOR 

710 RenaseeasaeasasasaT 
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SOME TIME AGO, IN MY ART- 
icle on sound, | promised to 
explain how to simulate the 
attack, decay, sustain and 
release functions of a sound 
synthesiser. At last, tweeked 
and tuned up to perfection, | 
proudly present The Sound 
Synthesiser which incorporates 
not only these functions, but 
also a host of other facilities 
including a second channel 
rests, hand claps, a sound com- 
piler and a waveform editor. 

I shall start by explaining the 
similarities to the PLAY 
command presented in the 
article on sound (December 
1985). Like the PLAY command 
it is interrupt driven, meaning 
that the tune can be playing 
while the computer is engaged 
in some other task, playing a 
game or editing awaveform for 
instance. It plays the tune by 
reading along a list of numbers 
held in memory which contain 
the pitch and duration of each 
note, in the sequence that the 
notes will follow. Commands 
such as volume, go to chorus, 
return and turn tune off can 
also be included in the list, 
Pitch values for a range of 
musical notes are given in 
Appendix D of the C-16 User 
Manual on page 173. 

Now for the differences. 
The main feature is WAVE- 
FORM SOUND. It works by 
continuously altering the 
volume of the note once every 
1/S0th of a second from a list 
stored in memory. When each 
new note is played, the synth- 
esiser starts at the beginning of 
the table setting the volume to 
the first number. A 1/50th of a 
second later the synthesiser 
reads the next byte along the 
list and adjusts the volume to 
that number. The process 
continues for the duration of 
the note until a new note is 
played, changing the volume 
of the note from the very 
beginning all the way through 
until it dies away; when the 
process repeats itself. The list 


can be stored anywhere in 
memory, although the table 
must begin at an address which 
isa multiple of 256 and must be 
256 bytes long. 

As the volume is in the 
range zero to eight, only nine 
different volume settings are 
allowed. It is still possible, 
however, to make a very 
convincing envelope with 
attack, decay sustain and 
release as shown in the diagram 
below. The attack part of the 
waveform covers the rise in 
volume from zero to peak 
value. The fall in volume after 
the peak is called the decay. 
The midrange volume is called 
the sustain level and the final 
fall in volume from sustain to 
zero is called the release, 

The parameters attack. 
decay, sustain and release can 
be applied to any sound. Con- 


SQ, 


q 
] 


sider the sound of a piano for 
instance, When the string is 
first struck by the hammer, the 
volume of the note quickly 
rises to peak level, therefore its 
attack rate is quite high. The 
volume then quickly falls to a 
lower value signifying a high 
decay rate and then sustains at 
this level for a while before 
dying away fairly slowly, which 
means it has a low release rate. 
The sound of aclarinet or other 
woodwind instrument is very 
different however. In this case 
the volume of the note rises 
slowly to peak value meaningit 
has a low attack rate, The 
volume then sustains for the 
remainder of the note and is 
followed by a rapid release. 
The Sound Synthesiser 
allows more than one wave- 
form to be in memory at the 
same time and also has the 


facility to switch from one 
waveform to another while the 
tune is being played thus si 
ulating different instruments 
Memory has been set aside for 
two waveforms, although more 
can be accommodated by 
raising the start of the Basic 
area or lowering the top of this 
area to create extra space for 
waveform sound (as explained 
in the September 1985 issue of 
Your Commodore). Lowering 
the top of Basic by 1K would 
reserve enough space for four 
more waveforms. A waveform 
editor program and a demon- 
stration waveform have also 
been included. 

The other main difference 
between this program and the 
PLAY command is the facility to 
play tunes using both channels 
This enables harmonies and 
backings to be put into the 


tune, along with such sounds as 
hand claps and steam trains if 
channel two is set to noise! 
Channel one still sets the pace 
of the tune, with the backing 
note in channel two being 
changed at various points 
along the tune. This will be 
demonstrated in a tune called 
Joe’s theme (!) later on 

As well as playing backing 
notes channel two can add a 
chorus effect to the sound. This 
is done by taking the pitch of 
the note in channel one and 
playing exactly the same pitch 
in channel two but with a small 
constant value added to the 
pitch, This has the effect of two 
notes in ‘harmony’ by using an 
effect known as beating. This 
effect was used to play God 
Save the Queen in demo one of 
my article on graphics modes 
published in the March 1986 
issue. A command to create this 
effect is provided in the 
synthesiser. Channel two also 
has the facility for turning itself 
off automatically a preset time 
after it is turned on instead of 
carrying on indefinitely - 
useful for hand claps, etc 

The other addition to the 
PLAY command is the facility 
for rests and pauses. In the 
PLAY command all notes 
tended to merge together and 
there was no facility for pausing 
the tune for rests etc. The 
Synthesiser allows the tune to 
pause for 1/50th second right 
Up to 20 minutes. It also allows 
the second (backing) channel 
to either continue while the 
first channel pauses or for both 
channels to be turned off for 
the duration of the pause with 
the backing being turned on 
again after the pause 


The Synthesiser 


The new assembly language is 
shown in Figure 2. If you wish 
to type it straight in use my 
‘C-16 Assembler’ published in 
the June 1985 issue of Your 
Commodore. To date thisisthe 
only text assembler available 
for the C-16. If you don't have 
the assembler, the machine 
code is shown in DATA state- 
ments in Figure 3 complete 
with a suitable loader. The 
synthesiser code starts at 
address 4096 ($1000 hex) and 
occupies 512 bytes. The start of 
Basic should therefore be 
moved up before loading the 
assembler or the machine 
code. If the start of Basic is 


Figure 2 


PROGRAM: SYNTHTEXT 


19928 
;THE sounD sywTHesrser | 1#95% 
4101986 JOE nIcHoLgoN | 14948 
; 18956 
ORs $1068 16966 
TURN ON 19978 
20N SET beled 
LDA 4842 bese 
STA $314 
Lon asia 1818 
STA $315 we 

10160 LDA #826 zest 
STA $07 ld 
LOA #806 We 
STA $DA ead 
STA $E6 110678 
STA SEL vey 

10228 STA SDC se 

16238 STA $DD ee 

16248 LDA SFA re 

10250 AND 487F Nae 

16268. STA SFFIL 

10278 LDA #SFE te 

19288 STA SO4FC 

19298 STA SO4FE Ae 

19368 CL Te 

18316. RTS 

1898; 11266 

19408 ;TURN OFF ae 

19418 :0F SEL 

16426 LDA $FFIL pie 

16438 AND #89F He 

19449 STA SFFLL et) 

16458 LOA #896 Hie 

10466 STA $0314 ee 

16470 LDA ASCE we 
STA $8315 
cl use 
RTS 11350 
5 11368 
; 

PLAY CONTROL Hoe 
ORG $1042 11398 
PL LDA $O4FC 

16718 CMP S$FF 

19726 BEQ R:P2 

10738 :P5 LDA $E0 ee 

18749 BEQ REX Ge 

19750 LOY #8 ine 

10768 LOA SFFIL ti 

10778 AND 4SF6 11466 

16788 ORA ($DE),¥ 11476 

19790 STA SFFLL ee 

19808 INC SDE 11488 

10816 :EX JMP $CEGE 


READ NEXT THREE BYTES 
1P2 LDA $EL 
BEQ R:PK 
UDA FFI 
ORA $E1 

STA SFFLL 
LDA #908 
STA SEL 

3PK LOY 4860 
LOX $968 
:P3 LDA ($D8),Y 
STA $02,X 
IWY 

IN 

THA 

CHP 83 

BNE R:P3 

LDA $06 

ADC #2 

STA $08 

BCC R:PA 

Ine $01 


; 

y0FF 

+P4 LDA $D2 
CHP ASFF 
BNE R:Pb 
ASR OF 
PX CLC 
BCC REX 


; 
608UB 

P6 CHP #$FE 
BNE R:P7 
LDA $08 

STA $05 

LDA $D3 

STA $08 

LDA $1 

STA $Db 

La $04 

STA $D1 

cue 

BCC R:P2 


BNE RPS 
LOA $05 

STA $08 

LDA $06 

STA $D1 

cue 

BCC RsP2 


VOLUME 


BNE R:P9 
LOA SFFIL 
AND #248 
ORA $03 

‘STA SFFLL 
PM CLC 

BCC RsP2 


; 
sNOISE/MUSIC 2ND CHANNEL 
PO CHP 4SFB 
BNE R:PA 
LDA $03 

CHP #2 

BEQ R:N1 

LOA #840 

BNE R:NB 

NL LDA #828 
:NB STA $D7 
cue 

BCC R:PH 


SET 2ND CHANNEL DEVIATION 
PA CHP ASFA 
BNE R:PB 

LDA $03 

STA $08 

LDA $04 

STA $09 

ORA $D3 

STA $DA 

BNE R:PH 

BEQ R:PR 


jOFF CHANNEL 2 
B CHP SFO 
BNE R:PC 

:PR LDA SFFLL 
AND #89F 

STA SFFLL 


SECOND CHANNEL 
1PC CHP ASF 
‘BNE R:PD 
LOA $03 

STA SFFOF 
LOA $D4 

STA SFFIO 
LA spc 

STA S84FD 
LDA $DD 

STA SO4FF 
LDA SFFLL 
AND #89F 
ORA $07 


C-16/Plus/4 


STA SFFL1 
BNE R:PN 


3SET INTERVAL FOR 
SECOND CHANNEL 
PD CMP 48F7 
BNE R:PE 

12346 LDA $03 

ORA $04 

BNE R:N2 

STA SDC 

STA $00 

BEQ R:PO 

N2 LDA $D3 

EOR a$FF 

12428 STA SDC 

LDA $04 

12448 EOR ASF 

12456 STA $DD 

12468 CLO 

BCC RPO 


j0N/OFF WAVEFORM SOUND 
SPE CHP $F6 
12526 BNE R:PF 
12538 LDA $03 
12549 STA SEB 
12558 BNE R:N3 
12500 LDA SFFLL 
12578 AND 4SFO 
12586 ORA $DB 
12598 STA SFFLL 
12608 CLC 

12618 BCC R:PO 

2N3 LDA SFF11 
12638 AND #80F 
12648 STA SDB 
12658 CLC 

12666 BCC R:PO 


j 

sSET WAVE NUMBER 
PF CHP 4$F5 
12726 BNE R:P6 

12738 LDA $D3 

12748 STA SDF 

12756 CLC 

12768 BCC R:PO 


j 

sJUMP TO USER ROUTINE 
2PG CMP 8$F4 

12828 BNE R:PH 

SR :N4 

12048 CLC 

BCC R:PO 

INP ($03) 


PAUSE ALL 


3PH CHP SSF3 
BNE R:PJ 
LDA SFFIL 
TAX 

AND #868 
STA SEL 
THA 

AND #88F 
STA SFFLL 
LOA $03 
EOR SFF 
STA SO4FC 
LOA $04 
EOR #SFF 
‘STA SO4FE 
IMP $CEGE 


; 

SMAIN ROUTINE 
1Pd GOR aSFF 
STA S$O4FC 
LOA SSFF 
STA SO4FE 
LOA #6 
STA SDE 
LDA $03 
ORA $D4 
BNE R:PP 
LDA SFFIL 
AND #9EF 
STA SFFIL 
PQ IMP $CEGE 
1PP LDA SFFIZ 
AND #252 
ORA $D4 
STA $FF12 
LDA $03 
STA SFFOE 
LDA SFFL1 
ORA #818 
STA SFFLL 
LDA $08 
BEQ R:PO 
cle 

LDA $03 
ADC $08 
STA SFFOF 
LOA $04 
ADC $09 
STA SFFIG 
LDA SFFIL 
ORA $07 
STA SFFLL 
LDA s0C 
STA $O4FD 
LDA $DD 
STA SO4FF 
INP $CEBE 


EI A Se 


moved up by 2K, space for two 
waveforms and 1K of tune is 
also set up - see Figure 4. 1K is 
usually enough for a tune of 
reasonable length as only three 
bytes are used per note or 
command. If more space is re- 
quired for the tune then the 
start of Basic should be moved 
up accordingly. 

To move the start of Basic 
up by 2K enter the following 


POKE 6144,0:POKE 44,24:NEW 


To move start of Basic up by X 
Kbytes enter: 


POKE 4096+X*1024, 
44,16+X*4: NEW, 


OKE 


The tune does not have to 
start at address 5120, in fact the 
tune can start anywhere and 
any number of different tunes 
can be stored anywhere in 
memory to the limit of the 
space available. 

When the Synthesiser 
assembly text or DATA 
statements have been typed in, 
SAVE it before going ‘any 
further as you may have made a 
mistake. Run the assembler/ 
loader and correct any errors. 
Then SAVE the machine code 
by entering the monitor, i.e. 
MONITOR + return. Then type 
in: S“name’,01,1000,1200 to 
save the Synthesiser; S“name”, 
01,1200,1400 to save the 
waveforms, where S signifies 
SAVE,01 signifies tape and 
$1000 and $1200 are the start 
address and the (end 
address+1). 


The Program in Detai 


Lines 10100-10310 turn the syn- 
thesiser on. This redirects the 
keyboard interrupt, which is 
called 50 times/sec, to enter 
the Synthesiser at line 10700. It 
also sets up the system variables 
to start playing the tune. Before 
this command is called the 
registers $D0 and $D1 (208 and 
209) should be set to contain 
the low and high byte respect- 
ively of the start of the tune. If 
the Synthesiser and the tune 
are in their normal positions 
type: 


POKE 208,0:POKE 209,20:SYS 
4096 to start the tune. 


Lines 10400-10500 turn the Syn- 
thesiser off. This redirects the 
keyboard interrupt vector to its 


normal value of $CEOE located 
in the ROM. Turning the Syn- 
thesiser on again means that it 
carries on fromwhere it left off 
Lines 10600-10700 is where the 
program is called every 1/50th 
second. If it is time for a new 
note, it will jump to line 10910. 
Lines 10730-10800 control the 
envelope of the sound, 
assuming waveform sound has 
been selected. Line 10810 
jumps back into the keyboard 
routine. 
Lines 10900-11110 read the next 
command (three bytes) into 
memory and move the pointer 
on three bytes 

If the first byte of the three 
is between $00 and $F3 it treats 
this byte as a duration and the 
next two bytes as a pitch for a 
note in channel one. If the first 
byte is between $F4 and $FF 
however, it treats the three 
bytes as a command and acts 
upon each as follows: 
Lines 11200-11260 Command: 
OFF. 
First byte $FF; compiler 
command OF; format OF 0 
This turns the tune off, Make 
sure to include one of these at 
the end of the tune. 
Lines 11265-11380 Command: 


GOSUB/GOTO 

First byte $FE; compiler 
command GO; format 
GO,label 


This is a type of GOSUB instruc- 
tion, It jumps to the address 
stored in the frequency bytes. 
It also stores the old pointer 
address in memory allowing 
the tune to return, so that tunes 
can save subroutines although 
nesting is not allowed. This can 
also be used as a GOTO 
instruction. 

Lines 11390-11470 Command: 
RETURN 

First byte $FD; compiler 
command RE; format RE,0 
This is the return instruction 
which makes the Synthesiser 
resume after the last GOSUB 
instruction, As with a number 
of these instructions the fre- 
quency bytes must be present 
but are not used. They can have 
any value, preferably zero. 
Lines 11480-11580 Command: 
VOLUME 

First byte $FC; Compiler 
command VO; Format VO,0-8 
This can be used to change the 
volume inside a tune. 

Lines 11600-11700 Command: 
Set 2nd channel 

First byte $FB; Compiler 
command $2; format $2,2 or 3 
The second channel can be 
either noise or music; two for 


music and three for noise as per 
C-16 SOUND command. 

Lines 11800-11900 Command: 
2nd channel deviation 

First. byte $FA; Compiler 
command DE; format DE,0- 
65535 

This sets the deviation of the 
second channel for chorusing 
as explained earlier. Any value 
greater than zero will make the 
second channel play automati- 
cally with channel one, adding 
the deviation to the pitch. Note 
that the command DE,1 adds 
‘one to the pitch and that 
DE,5535 subtracts one from the 
pitch. Large values such as DE,40 
make channel two sound com- 
pletely off key. DE,0 turns off 
deviation mode. 

Lines 12000-12070 Command: 
OFF 2nd channel 

First byte $F9; Compiler 
command X2; format X2,0 
Switches channel two off. 
Lines 12100-12250 Command: 
2nd channel 


First byte $FB; Compiler 
command C2; format C2,0- 
1024 


This turns the second channel 
on using the pitch in the two 
frequency bytes and the 
duration set up by the Set 
Interval command. 
Lines 12300-12470 Command: 
Set Interval 
First byte $F7; Compiler 
‘command Sl; format S1,0-65535 
This alters the duration of the 
second channel in 1/50th 
second steps. The command 
S1,0will make channel two play 
continuously after being 
turned on 
Lines 12500-12660 Command: 
ON/OFF waveform sound 
First byte $F6; Compiler 
command TW; format TW,0 or 
1 
Turns waveform sound on/off. 
TW, 1 turns on waveform sound 
storing the previous volume 
level. TW,0 turns off waveform 
sound restoring volume level. 
yes 12700-12760 Command 
Set wave number 
First. byte $F5; Compiler 
command WA; format WA,0- 
255 
This selects the waveform to be 
used. The number is the high 
byte of the start address of the 
waveform. In its normal mode 
there are two waveforms 
available: WA,18 and WA,19. 
Lines 12800-12860 Command: 
Jump to user routine 
First byte $F4; Compiler 
command MC, format MC,0- 
255 


Figure 3 


PROGRAM: SYNTHDATA 


10080 A=4096:D0:B=0:FORC=1T01 
eR THENPRINT*OK. «" 
10010 B=B+D:POKEA,D: 

T: READE 

10028 IFD<)BTHENPRINT"DATA ER 
ROR IN LINE*;PEEK (43)+2564PEE] 
K (64) END: ELSELOOP 


128008 DATA 12 


89,66, 141,20, 
3,169, 16, 141, 21,3, 169,32, 133, 
215,169, 1587 
20616 DATA a, 1 
133,225, 133,226, 13. 
7,255, 41,127, 2588 
20628 DATA 141,17, 255, 169, 254 
141,252, 4, 141,254, 4,88, 94,12 
8, 173,17, 2126 

0030 DATA 255,41,143, 141,17, 
255, 168,14, 141,203, 169, 206, 1 
41,21,3, 1739 

20048 DATA 88, 94,173, 252,422 
1,255, 240, 21, 165,224, 240, 14,1 
68,0,173, 2386 

120058 DATA 17,285, 41,248, 17,2 
2251414 1752554 290,222, 76,1452 
64,165,225, 2343 

28066 DATA 240, 12, 172, 17,258, 
5,225, 141, 17, 255, 149, 9, 133, 22 
5, 166,08, 2027 

120670 DATA 142,0,177, 288, 149, 
216, 260,232, 138, 262, 2,208, 245 
165,208,105, 211 


6144 


5120 


MUM 


1024 BYTES 
FOR TUNE 


2nd WAVEFORM 


1st WAVEFORM 


512 BYTES FOR 
SYNTHESISER 


Figure 4: Memory map 


$1800 


$1400 


$1300 


$1200 


$1000 


1/50th second to 20 minutes. If 
the backing was on before the 
pause it will be on again after 
the pause. 

Lines 13000-13500 

This is the main routine for 
notes going to channel one. If 
the deviation is on it also sets 
up channel two. 


The Compiler 


This allows the user to create 
extra commands for the synth- 
esiser. One of its most impor- 
tant uses would be to call a 
routine which sets a flag to 
signify when the tune has 
reached that point so that an 
arcade game could be 
synchronised with the tune. At 
the start of each routine make 
sure you disable interrupts (SEl) 
and enable them (CLI) at the 
end of the routine. Use RTS to 
return to the Synthesiser. This is 
the only routine in the 
Synthesiser which cannot be 
easily relocated because of the 
JSR to a fixed address in line 
12830. 


Lines 12800-13060 Command: 
Pause A117 

First. byte $F3; Compiler 
command PA; format PA,1-255 
This pauses both channels from 


One of the greatest improve- 
ments over the original PLAY 
command routine is the 
inclusion of a special two-pass 
music compiler which greatly 
simplifies the problems of 
composing music. The music 
listing is shown in 
Figure 5. The Hovis advertise- 
ment demo for the PLAY 
command was very difficult to 
write because | had to work out 
the addresses for the GOSUB 
values and look up the 
numbers for commands such as 
Volume, etc. The music 
compiler eliminates the need 
for any of this. GOSUBs and 
GOTOs are made much easier 
by the use of labels. The letters 
LA signify that a label is to 
follow and the label follows 
directly after a separating 
comma. Up to 50 labels can be 
used, which should be enough 
for even the longest tune. If 
more are required however, 


20 


change the number inside the 
DIM statement in line 45010 to 
the desired value. Also, instead 
of having to quote the number 
of the command you want, e.g. 
252 for volume, you simply 
write VO followed by the 
volume number. The compiler, 
when run, will translate the VO 
into 252. Finally there should 
be an END instruction. An 
infinitely repeating beginning 
to Three Blind Mice would 
therefore look like this 


DATA,LA,START,VO,7_ start 


label and a volume 7 
command. 
DATA 20,685, 20,643,40,596,GO, 


LA,START,END 


Play the notes in channel one 
and then loop back to the label 
called START. Tunes are now so 
much easier to read, write and 
edit that a good deal of enjoy- 
ment should be had in 
composing the tune. 

To compile the tune type 
RUN45000. As the compiler sets 
the pointer to the start of the 
tune, to start the tune playing 
simply type SYS4096 provided 
the synthesiser is at its normal 
position. To stop the tune type 
SYS4141. It is possible to 
compile the tune to anywhere 
in memory simply by changing 
the value of the variable D in 
line 45000 to the desired value. 


Figure 5 


PROGRAM: COMPILER 


45000 D=DEC("1400") :SYS4141:P 
OKE208, #:POKE29, INT (D/256) 
45610 DIMAS (50) :DIMDZ(58) 
45020 A=D: RESTORE! 
45030 READI 
DBS: AS(E) =I 
TO4SO30 
45040 IFB 


}= "END" THENGOTO45196 
45058 READCS: IFC$="LA*THENREA 
os 

45060 A=A+3;G0T045030 


45100 A=D:RESTORE: 
45110 READ! ee END" THENPR 
INT*OK. 
45115 iCeecs Tiere 60T 
045118 

45120 IFASC(BS) <ASTHENB=VAL (B 
$):60T045125, 

45122 Be256-( (INSTR(*OFGOREVO 
S2DEX2C2S1TWWAMCPA", BS) +1)/2) 
45123 IFB=255. STHENPRINTBS*? 
INVALID COMMAND": END 


45125 POKEA, B:READC$: IFC$<>*L 
A*THENCEVAL (C$) 
45138 READBS: FOF 
)=BSTHENC=D%(F) 
INT*LABEL NOT FO 


45150 POKEA#L,C-(INT(C/256) 82 
56) :POKEA#2, INT (C/256) :AzA3: 
sOTOHSII9 

20080 DATA 2,133,206, 144,2,22 
8, 209, 165,216, 201,285, 208, 4,7 
2,45, 16, 2066 

20090 DATA 24, 144,268,281, 26+ 
+ 208, 19, 165,268,133, 213, 
11,133,208, 165, 2651 
20100 DATA 269,133,214, 1 
2,133, 209,24, 144, 180, 261, 253, 
208, 11,185,213, 2674 

20110 DATA 133, 208, 
3,209, 24, 144, 165,201 
13,173,17,255, 2514 
20128 DATA 41,240, 
7,255, 24, 144, 148, 201 
17,165,211, 2279 
20136 DATA 261,2,248, 4, 169,64 
208, 2,169, 32,133, 215,24, 144, 
252,261, 2046 


20140 DATA 250,208, 16, 165,211 
133,216, 165, 212, 133, 217,5, 21 
1,133,218, 208, 2783 


20156 DATA 214,248, 4,281,249, 

208, 11, 173,17, 258,41, 159, 141, 

17,255,24, 2269 

28168 DATA 144,197,281,248,20 

8, 32, 165, 211, 141, 15,255,165 

41,16, 258, 2406 

20178 DATA 185,220, 
165,221, 14 


41, 159,5 


1161, 261, 2 
1212, 208, 6, 
20198 DATA 


168,212, 73,285, 291 


20208 DATA 133,22 
4 281,246,208, 
24, 268,12, 
20216 DATA 


24,144,187 


i285, ai 


18, 133,24 


154,201,245, 208,7, 165, 
323,24, 144, 2250 


20238 DATA 143, 261, 244, 208, 9, 
32, 123, 17,24, 144,133, 168,2 
4,201,283, 2041 
20240 DATA 208,31,1 
2G, 954155 226,128 4 
117,255, 2086 
20250 DATA 168,211,73, 
1252, 4,165, 212,73, 255, 
14, 7by 14, 2295 
20260 DATA 206,73, 255,141, 252 
44,169, 255, 141,254 4, 169, 8, 13 
3,222,165, 2443 
20276 DATA 211,5,212, 268, 11,1 
73,17, 255, 41,239, 141, 17, 255,7 
614,206, 2081 
20286 DATA 173, 18,255, 41,252, 
5,212, 141, 18,255, 165, 211,141, 
14,255,173, 2529 
20296 DATA 17,255, 9, 16,141, 17 
255,165, 218, 249, 226, 24, 165,2 
81,216, 2276 


141,254 


20318 DATA 17,255, 165, 228, 14: 
1253, 4,165,221, 141,255, 4,76, : 


4,206,258, 2392,-1 a 


Figure 6 


PROGRAM: DENO TUNES 


45006 D=DEC ("1400") :SYS4141:P 
OKE288, 8: POKE209, INT(D/256) 
45010 DIMAS (56) :DIMDL(S0) 

D: RESTORESO009 
|FBS="LA"THENREA 
DBS: A$(E) =B$: DL(E)=AsEsE +1260 
7045038 

45040 IFB$="END" THENGOTO4S100 
45050 READC$: [FC$="LA*THENREA 


RESTORES#OO8 
FBS$="END" THENPR 


45115 IFBS="LA*THENREADBS: GOT 
045118 

45120 1FASC(BS) <STHENB=VAL (B 
$):607045125 

45122 B=256- ( (INSTR (*OFGOREVO 
S2DEX2C2S1TWWAMCPA® BS) +1)/2) 
45123. IFB=255. STHENPRINTES*? 
INVALID COMMAND": END 

45125 POKEA, Bs READC$: IFC$<>"L_ 
AYTHENC=VAL (C$) + 607045150 


UND IN" 
45150 POKEA#1,C-(INT(C/256) #2 
56) sPOKEA#2, INT (C/256) :A=A#3: 
soTo4siie 

50000 REM DEMONSTRATION TUNES 
50002 REM 

50003 REM WHEN THE SAINTS 60 
NARCHING IN 

50004 REM 

50005 DATALA, START, DE, 8, TH 8, 
VO,5,60,LA,SAINTS, WA, 18, TH 1, 
G0;LA, SAINTS, TW, 8, DE, 2 

50010 DATAGO,LA,SAINTS, TH, 1,6 
0,LA, SAINTS, PA, 109, 60,LA, JOES 
THEME 

50100 DATALA, SAINTS, 12,596, 12 
485, 12, 764, 48,739, 12,59, 12, 
685, 12,704, 48, 739 

50110 DATAL2,596, 12,685, 12,78 
4,24, 739,24, 685, 24,596, 24, 685 
160) 843 

50120 DATAL2, 685, 12,485, 12, 64 
3,48, 596, 24, 685, 24,739, 12,739 
148, 704, 12, 685, 12,764 

50138 DATA24, 739, 24, 685, 24,59 
6, 24, 643, 48,596, RE, 6 

50476 REM 


50480 REM JOE’S THEME 

50490 REM 

50500 DATALA, JOESTHENE, TH, 6, 

0,7, DE, 2,60, LA, JOE, DE, #,60,L:~ 
JOE, PA, 186, 60,LA, HOVIS 

50518 DATALA, JOE, C2, 345,30, I 
5,18, 784,20, 739,02, 169, 20,5% 
50528 DATAC2, 383,30, 764, 18,7; 
9,28,770,02, 262, 26, 643 

50538 DATAC2, 383, 38, 704, 18, 7: 
9,.26,770, C2, 262, 28, 643 

50540 DATAC2, 453, 38,739, 19,77 
6, 49,798 

50550 DATAC2, 453, 30,739, 19,77 
6, 26,798, C2, 345,26, 685 

50540 DATAC2,516, 30,770, 10,79 
8, 26,810, PA, 20 

50576 DATAC2,811,26,810,C2, 79 
9,26, 798,02, 771,38, 778 

50580 DATALG,739, 30,776, 19, 73 
919,778 

50590 DATAC2, 453,30, 739, 19, 78 
4,10, 685, 10, 683,02, 169, 40,596 
REO 

50976 REM 

50980 REM ANTONIN DVORAK"S LA 
RGD 

50990 REK 

51900 DATALA, HOVIS, X2,, TH, 1, 
60,LA,LARG!, 60, LA, LARG2,60,LA 


sLARG2,60,LA,LARG! 

51916 DATADE,2,60,LA, LARG! 60 
LA, LARG2, 60,LA,LARG2, 60,LA,L 
ARGI,OF, 1 

51108 DATALA, LARGL, 26, 485, 28, 
739, 40, 739, 28, 685, 20, 643,40,5 
9,20, 683, 20, 685 

51116 DATAZG, 739, 28, 685,80, 64 
3,26, 685, 20,739, 40,739 

$1128 DATA2G, 685,20, 643, 40,59 
6,28, 643, 20, 685, 20, 643, 

51138 DATA2O,596, 86,596, RE, 8 
51150 DATALA,LARG2, 20, 779,26, 
810,49, 810,28, 796, 20, 739,407 
7) 

51166 DATAZG,776, 20,815, 20,79 
8, 26,739, 86, 770,RE, 0 

51200 DATAEND 

54970 REM 

54986 REM SAMPLE WAVEFORM USE 
D IN DEMO, 

54990 REM 

55008 RESTORESS@16:FORA=4008T 
(04653: READB: POKEA, Bs NEXT: FORA 
4654704863: OKEA, 2: NEXT: END 
55018 DATAL, 2,2)3,4,45516) 657 
1B,B57575b5 6,555, 4,4, 4,4,4,4, 
CLs 


55026 DATA3,3,3,3,3,3,3,3,3,3 
a 


eS 


Figure 6 shows 
demonstration tunes. Lines 
5000-5020 create a simple 
waveform at address 4608 to 
start you going. Run 55000 
before playing the tunes. The 
demonstrations include such 
immortal classics as the Saints, 
Joe's theme and Dvorak’s New 
World Symphony. No imagina- 
tion has been spared here, 
in fact these tunes do to music 
what Rolf Harris's Picture 
Builder did to art. !'m sure you 
can do better. 


some 


The Waveform Editor 


The Waveform editor (Figure 7) 
allows the user to create and 
modify waveforms. Run the 
program and enter the 
waveform number (decimal 


high byte of the address of the 
waveform) then type Cor Eand 
return in response to Create or 
Edit or waveform? If you want 
to create a waveform the list of 
numbers will all be reset to 
zero. If you want to edit a 
waveform all the numbers 
greater than eight will be 
clipped to eight to avoid any 
errors in the operation of the 
Synthesiser. The screen is then 
cleared and the first page of the 
waveform is displayed with 
volume settings zero to eight 
on the vertical axis. The cursor 
will flash at the first position of 
the waveform. Move left and 
right using the cursor controls, 
and press keys zero to eight to 
set_ the volume. Page one 
displays the first 80 bytes of the 
waveform. To move to the 
second line of the display press 


cursor down. There are three 
pages to cover 240 bytes of the 
waveform. Moving the cursor 
down off the bottom of the 
page will enter the next page of 
80 bytes. 

There are other functions in 
the editor which help to make 
things simpler. Pressing 
shift/P will start the synthesiser 
playing at the beginning, 
assuming the synthesiser and 
tune are stored at the normal 
positions. If they are at 
different addresses change the 
values of the first two POKES 
and the SYS in line 20600 
accordingly. 

If a tune is stored which 
turns on waveform sound, but 
does not select a particular 
waveform, the synthesiser will 
use the waveform which is 
being edited at the time - 


hence any change in the 
waveform will have an immed- 
iate effect and you can set it up 
by ear! 


Other Commands 


Pressing shift/X at any time will 
turn off the tune 

Pressing shift/R will restart the 
program enabling you to 
change waveforms. 

Pressing Q will quit the editor 
when you are satisfied with the 
waveform. This also sets the last 
16 bytes of the waveform tothe 
last value at the end of page 
three. 

Shift W (wipe) will set the 
volume of all values to the right 
of the cursor to the cursor 
value and completes the 
waveform at a constant level. 


Figure 7 


PROGRAM: WAVE EDITOR 


29000 SCNCLR:PRINT® WAVE 
FORM EDITOR*, te Ute 
Wife UILe UIfe Uc Ue UICe 
Ube UIE Ute Vie Ite UIE 
c Ute WI" 

20819 INPUT* WAVEFORM. KUMBER* 
AS256s INPUT*CREATE (C) OR 
EDIT (£) WAVEFORM"; AS 

20020 D=6: IFAS=*C* THENFORC=BT 
NEXT 

20030 IFAS<>*E*THEN20100:ELSE 
FORC=BTOB+25S: IFPEEK (C) YBTHEN 
POKEC,B 

26048 NEXT 

26100 SCNCLR: FORC=1702:PRINT* 
{DOWN (DOWN) (DOWN) [DOWN (DOWN 
‘TEDOWNICDOWNICDOWNIEC @Ifc @) 
Ic @lle Ole lfc Wf elle @ 
Me @llc @lfc @)fc @lfc @)fc 
@llc @llc Ofc @)fc lfc @lfc 
Qc Ile Wile etc Altec ell 
c Qc lfc Ife ele lfc @1 
(c @Me @llc @lfc eile eltc @ 
Ite @lte @fe 1" 
26260 E=B+ (D486) :FORF=6T01:FO 
AG=OTO39 He (B-PEEK (E+401F#6) 
$46+6+3608F : POKE2048+H, 82 
26216 POKE3@72+H, Bo: NEXT: NEXT 
26250 PRINT:PRINT"WAVEFORN NU 


MBER "A" ADDRESS “B,"PAGE"D 


H 

20500 F=P-(808D) :6=( (8-PEEK(B 

4P)) 440) +F- CINT(F/4B) 848) 2F=( 

INT(F/4) 8368) +6 

20510 POKEF +2048, 145:POKE3672 

+F, 86 

20550 GETKEYAS:POKE2048+F, 2 

20568 IFP)OANDAS="CLEFT*THEN 

F-1:60T026800 

578 IFPC2T9ANDAS=* {RIGHT "T 

NPsP+1; 60020800 

22580 FASS" CUP] "ANDP)S9THENP 
49 

28890 IFAS="CDOWN] "ANDPC200TH 

ENP=P+AG 

20600 IFAS="{s P1*THENPOKE298 

s2:POKE20S, 20:POKE223, Ax SYS4B 

8 

20610 IFAS="{s X]"THENSYS4141 

26628 IFAS="{s R]*THENRUN2OB6 

a 

20638 IFAS="Cs W)*THENH=B+P:F 

ORG=H+1T0B+255: POKEG, PEEK (H) : 

NEXT: 6070261 

‘20640 IFAS="Q*THENFORG=241T02 


20700 IFAS<*6*ORAS)"@"THEN2OB 
7 

20716 IFPEEK (B+) =OTHENPOKES® 
‘7246, 100: POKEZO4B+F, 16:ELSEPC 
KESO72¢F, 32 

26726 POKE(B+P) , VAL (AS) 


20808 (T(P/88) + 1FGC)DT 
HEN20100: ELSE2051 


DESCENDER ROM 


NOW FOR THE MPS-801, 1525, GP-100VC, OR MPS-803 


We have redesigned the cha 
‘desc 


9F $0t to allow you to print out with 


Jers. Because this is a replacement ROM your printer 
Will operate exactly the same as before with no change whatover i 
the way your printer will work with any program you may use. 
Easy installation with no soldering required. Supplied with complete 
instructions. DESCENDER ROM may not fit some models of the 
1825, GP-100VC, and MPS-803. Phone or write for details. 


£14.95 vip 


EXAMPLES: 


sty? 
quickly 


TOOLKIT IV 
-00cT0R veo wn ye 


‘and renumbered sectors and track 
fet FORMATTER ~ 10- 
individual track or hal 

create 0 

aisplays 


uickly find and rec 


renumbered tracks and sectore and 


(ata under errors and allows you to redk 


from 0 to 41: 
unique disk formats, HEADER/GAP EDITOR ~ decodes and 


of 30 param 


ingle 1541, FAST 
ILE COMPACTOR - 


‘compacts machine cade programs: can compact programs by over 50% which 


‘saves disk space and loading 
‘8 the original. DISK LOOK = 


‘opcodes: edit BAM: and much more. DRIVE SPEED TEST, DISK ERASE, DISK 
MON, DISK LOG, BASIC COMPACTOR/UNCOMPACTOR, &: FILE MAKER 


‘Supplied on aisk with comprehensive instruction manual 


£22.95 sip 


For C-84/0-128. 
Send SAE for 
complete information 


MPS SOFTWARE (Dept YC) 
36 Alexandra Grove 
London N4 2LF, England 


Overseas orders pleaue add £1.00 


eae 
[Evesham Micros} 


E UTILITY SPEC CIALISTS 


pu oe 
CTOR 


f EVESHAM MICROS MICRO CENTRE 
BRIDGE STREET, EVESHAM, _1756 PERSHORE ROAD, 
Woncsrees i COTTERIDGE, BIRMINGHAM. 


Tel: 0386 4198' 


EXCHANGE 


Part two of our communications program from K Otton and A Adams. 


[Main Menu 


F3 ~ Set up Message Screen - 
will provide you with a blank 
screen on which you can pre- 
type a messge or draw one 
using the dots, dashes, stars etc. 
available in ASCII. When you 
have typed the message you 
can then go on line (F2) from 
Main Menu. When you need to 
send your message just press 
F5. The message can be sent as 
many times as you like 

F4 enables you to view 
saved screens. When off or on 
line you may re-load a saved 


screen by pressing F4. You will 
be asked if you need a 
Directory (disk only) or to enter 
the name which you used to 
save the screens when on line. 
After the screen has loaded you 
will have the option to print the 
screen or go back to Main 
Menu 

F5 — Create Board File ~ is 
like a small data base. When 
you have information such as 
name, telephone no., baud 
rate, parity etc. It can be typed 
in and saved as a file. 

F6 is Load/View Board File. 
Follow the Screen Prompts and 


this will load the stored 
information into memory and 
set the Baud Rate etc. ready to 
go on line 

Loading F7 - Load Saved File 
(Buffer) - allows you to view or 
print all or some of the file you 
saved when you opened the 
Buffer (F3). This is OK apart 
from the fact that there is no 
error check on this version. 
However, it has proved to be 
pretty reliable on most 
transfers. When the file is 
printing to the screen you can 
stop the scrolling by using the 
space bar, Pressing the bar 


again will re-start output. You 
cannot stop the output to the 
printer once it has started. 
Again, hitting the back arrow 
will return to Main Menu. 


Macro 


Macro, or answer back as some 
people might know it, is an 
automatic demand to identify 
the caller. The host computer 
will send a control character 
which will make your 
computer send the required 
information, Not all Boards use 
this Function and not all Boards 


2328 DATA 32,32,32,32,32,32, 
32,54,32, 669, 26,19, 46,46, 
46,562, 

1338 DATA 46, 45,46, 46, 46,46, 
46,46, 70,53, 32, 32,32, 32, 
32, 42,693 

2548 DATA 42,32,32,32,32,32, 


32,53, 543 

2359 DATA 32, 66,9,26,19, 46, 
46,46, 46, 4b, 46,46, 46, 46, 
46,46, 652 

2369 DATA 78,55, 32,32,32,32, 


32,42, 42, 32,32, 32, 
32, 32,593 


2370 DATA 32, 32,32,32,32,32, 
32,32, 32,32,32,32, 32,32, 
32,32,512 

2380 DATA 32,32,32,32,32,32, 
32,32, 32, 32, 32,32,32, 32, 
32, 42,522 

2390-DATA 42,32,32,83,26, 15, 
16,32, 66,9, 26, 19,32, 32,32, 
32,514 

2400 DATA 32,32, 
32,32,32, 
32,32,512 

2418 DATA 32,32, 32, 32,32,32, 
32,42, 42,32, 32,32, 32, 32, 
32,32, 532 

2426 DATA 32,32, 32,32,32,32, 
32,49, 32, 83, 26, 15, 16,32, 
66,9,546 


32,32, 32,32, 
25 


32,32, 


2430 DATA 20,19, 46, 46, 46,46, 
4b, 46,76, 49, 32, 32, 32,32, 
32,42, 636 

2449 DATA 42,32,32,32,32,32, 
32,32, 32, 32, 32,32)32,32, 
32,50, 548 

2456 DATA 32,83,26, 15, 16,32, 
659520, 19, 46,46, 46,45, 45, 
46,588 

2468 DATA 78, 51,32,32,32,32, 
32, 42,42, 32, 32,32,32,32, 
32,32, 589 

2470 DATA 32,32,32,32,32,32, 
32,32, 32, 32, 32,32, 32,32, 
32,32,512 

2486 DATA 32,32, 32,32,32,32, 
32, 32,32, 32, 32,32, 32,32, 
32,42,522 


2496 DATA 42,32,32,68,5,6)1, 
21,12, 26, 32, 28, 15,32,32, 
51,421 

2500 DATA 48, 48,47,56, 47,49, 
46,46, 46,46, 4b, 46,46, 46, 
46,46, 755, 

2519 DATA 76,55, 32, 32,32,32, 
32,42, 42, 32, 32,32,32,32, 
32,32,593 

2526 DATA 32,32,32,32,32,32, 
32,32,32, 32,32, 32,32,32, 
32,32,512 

2539 DATA 32,32,32,32,32,32, 
32,32, 32,32, 32,32,32,32, 
32, 42,522 

2548 DATA 42,32,32,32,32,32, 
32,32, 32, 32, 32, 32,32, 32, 
32,32,822 


2550 DATA 32,32, 32,32,32,32, 
32,32, 32, 32,32,32,32,32, 
32,32,512 

2566 DATA 32,32,32,32,32,32, 
32,42, 42,32, 32,32,32,32, 
32,32,532 

2576 DATA 32,32,32, 32,32,32, 
32,32, 32, 32,32,32,32,32, 
32,532,512 

2580 DATA 32,32,32,32,32,32, 
32,32, 32,32, 32,32, 32,32, 
32,42,522 

2898 DATA 42,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,32,522 

208 DATA 32,32,32,32,32,32, 
32,32, 32,32,32,32, 32,32, 
32,32, 512 

2616 DATA 32,32,32,32,32,32, 
32,42, 42,32,32,32, 32,32, 
32,32, 532 

2626 DATA 32,32,32,32,32,32, 
32,32, 32,32,32,32,32, 32, 
32, 32,512 

2630 DATA 32,32, 32,32,32,32, 
32,32, 32, 32,32,32,32,32, 
32, 42,522 

2649 DATA 42,42,42,42,42,42, 
42,42,42,42,42,42,42,42, 
42,42, 672 

2650 DATA 42,42,42,42,42,42, 
42,42, 42, 42,42, 42,42, 42, 
42,42,672 

2660 DATA 42,42,42,42,42,42, 
42,42, 76,0,0,0,9,8, 18,8, 
428 

2670 DATA 76,9,0,0,0,9, 18,0, 
70,0,6,8,0,0, 18, 0,176 

2686 DATA 42,42, 42,42,42,42, 
42,42,42,42,42,42,42,42, 
42,42,672 

2690 DATA 42,42,42,42,42)42, 
42,42, 42,42, 42,42542,42, 
42,42, 672 

2708 DATA 42,42,42,42,42,42, 
42,42,42,32,32,32)32532, 
32,32, 662 

271 DATA 32,32, 32,32,32,32, 
32, 52,32, 32,32, 32,32)22, 
32,32,512 

2728 DATA 32,32,32,32,32, 32, 
32,32, 32, 32,32,32,32,32, 
32,42,522 

2730 DATA 42,62,32,72y 141454, 
32,83, 81,11, 9 14, 7,32, 424 

274 DATA 32,32, 32,32,32,32, 
32,32, 32, 32,32,32, 32,32, 
32,32, 512 

2759 DATA 32,32,32,32) 
32)42, 42,32,32,32, 


32,32, 
2, 


32,32, 


32,32,832 

2766 DATA 32,32,32,32,32,32, 
32,32,32, 32, 32,32,32,32, 
32,532,512 

2776 DATA 32,32,22,32,32,32, 
32,32,32,32,32,32,32,32, 
32,42,522 

2788 DATA 42,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,51,541 

2790 DATA 32,76, 9, 14,5, 46, 465 
446,46, 46, 46,46, 46,45, 46, 
46,642 

2860 DATA 7,49,32,32,32,32, 
32,42, 42,32, 32, 32,32,32, 
32,32, 587 

2818 DATA 32,32,32,32,32,32, 
32,88, 15,14, 47,88, 15, 4,6, 
46,549 

2828 DATA 46,46, 46,46, 46,46, 
46, 46,70, 51,32532,32,32, 
32442, 691 

2839 DATA 42,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,532,522 

2848 DATA 32,9, 178, 6,170,, 
170,0,176,0,178,9,178,6, 
170,6,1222 

4000 PRINT*CCLEARINEW" 

INT"{DOHN2] 
LOAD" +CHRS (34) +"COHMS GEN 
S"+CHRS (34)4", 8" 

4005 REN 14 CHANGE , 
8 IN ABOVE LINE TO ,1 IF 
YOU ARE USING TAPE 18 

4618 PRINT*CDOWNAIRUN" 

4028 POKE 631, 13:POKE 432,13 

OKE 633, 13:POKE 198,3 

RINT*CHOMED" 


108 FOR L=@ TO 175:CK=0 

:FOR De@ TO 15:READ A 

SCKECK+A:POKE 94724L816+D, 
ASNEXT D 

2018 READ AsIF ACCK THEN PR 
INT*ERROR IN LINE"; 
2840+(Lt18) :STOP 

2028 NEXT L 

2640 DATA 32,32,32,32, 32,32, 
32,32, 32,32, 32, 32,32, 32, 
32,32,512 

‘2050 DATA 32,32,32,32,32,32, 
32,42, 42,32, 32,32, 32,32, 
32,32,532 

2668 DATA 32,32,32,32, 32,32, 
32,32, 32,32, 32, 32, 32,32, 
32, 32,512 

2670 DATA 32,32,32,32,32,32, 


32,32,32, 32, 32,32,32,32, 


42,522 

2086 DATA 42,32,32, 86 
28,25, 32,32, 32,32, 3 
32,483 

2696 DATA 32,32,32,32,32,32, 
32, 32,32, 32, 32, 32, 32,32, 
32,532,512 

2166 DATA 32,32, 32, 32,32, 32, 
32,42, 42,32, 32,32, 32,32, 
32,32,532 

2119 DATA 32,32,32,32,32,32, 
32,78, 15, 14,5, 46, 46,46) 46, 
46,566 

2126 DATA 46,46, 46,46, 46,46, 
46,46, 78,49, 32, 32, 32,32, 
32,42, 689 

2136 DATA 42,32,32,32,32,32, 
32,32,32, 32, 32,32,32,32, 
32,79, 569 

2140 DATA 4,4, 46,46, 46, 46,46, 
46,46, 4b, 4b, 4b, 46,46, 46, 
46,652 

2158 DATA 70, 50,32,32,32,32, 
32,42,42, 32, 32, 32, 32,32, 
32,32, 588 

2166 DATA 32,32,32,32, 32,32, 
32,69,22,5, 14,46, 46, 46,46, 
46,564 

2178 DATA 45, 4b, 46546546546, 
46,46, 78,51, 32, 32, 32, 32, 
32,42, 691 

2186 DATA 42,32,32,32,32,32, 
32,32, 32,32, 32,32, 32,32, 
32,78, 568 

2196 DATA 15,14,5,48, 13,1, 18, 
11,41, 46, 46,46, 46,40, 46, 
46,488 

2266 DATA 70,52,32,32,32,32, 
32,42, 42,32, 32,32, 32,32, 
32,32,590 

2218 DATA 32,32,32,32,32,32, 
32,78, 15, 14,5, 48,19, 16,1, 
3,415 

2226 DATA 5,41,46, 46,46, 46, 
46,46, 78, 53, 32,32)32,32, 
32,42,647 

2238 DATA 42,32,32,32,32,32, 
32,32, 32,32, 32,32, 32,32, 
32,32, 522 

2240 DATA 32, 32,32,32,32,32, 
32,32, 32,32, 32,32, 32,32, 
32,32, 512 

2056 DATA 32,32,32,32,32,32, 
32,42,42,32, 32,68, 21, 16, 
12,5,494 

2260 DATA 24,32, 32,32,32,32, 
32,32,32,32,32, 32, 32,32, 


32,32, 504 
» 


. Sa 


use the same format. When you 
log on to a particular Board, it 
will tell you if this function is 
available and in what format. 


Getting it all in 


There are nine different parts 
to the Telecom program. Enter 
all parts separately and save on 
to disk or tape. If you are using 
tape then you do not need the 
boot generator program also, if 
you are using tape make sure 
that you make all the changes 
as indicated in the REM 
statements. Cassette users 
should save the programs 
COMMS GEN1 to 5 on the 
same cassette one after the 
other. 

When you have entered 
and SAVEd all parts then LOAD. 
and RUN the BASIC MOVE 
program. 

Now LOAD ‘COMMS 
GENT’ and RUN. This will auto- 
matically LOAD in parts 2to5 as 
needed. If you are using 
cassette then place a new 
cassette in the unit as soon as 
part 5 has finished loading. 
When ‘COMMS GENS’ has 
finished LOADing it will SAVE 
“TTELCOM/v1' to tape or disk. 

Next switch off and on your 
machine and LOAD ‘COMMS 
GEN6’ and RUN. This will 
LOAD part 7 when needed. 
Cassette users should place the 
cassette that contains 
“ITELCOM/V1’ in the unit as 
soon as part 7 has loaded. Part7 
will SAVE ‘2TELCOM/v1' to 
tape or disk when finished. 

You should now have two 
programs ‘ITELCOM/V1’ and 
‘QTELCOM/V1’ these are the 
complete program. In future if 
you want to use the program 
simply type: 


LOAD “1TELCOM/V1’,8,f 
LOAD “2TELCOM/V1”,8,1 


SYS 52224 


and the program will start. If 
you are using tape then change 
the ,8,1 in the above lines to 
AA 

Disk users have the added 
advantage of an auto boot 
program. LOAD and RUN the 
BOOT GENERATOR program 
and COMMS BOOT will be 
saved to your disk. In future to 
use the program type LOAD 
“COMMS BOOT’’8,1 and the 
program will auto run. 


2270 DATA 12,92,22,32,32 32, 
32, 32,32, 32,32, 32,32, 32 
32, 42,522 

2286 DATA 42,32,32,32,32,32, 
32,32, 32, 2, 32,32, 
32,78, 566 

2290 DATA 21,12,12,46,46,46, 
46,46, 46,46, 4b, 46, 46, 46, 
4, 46,643 

2308 DATA 76,4 
32,42,42,32,32, 

2,32, 587 

231 DATA 32,32,32,32,32,32, 
32,72y1412,6, 46,46, 46,465 
46,545 

2520 DATA 4b, 46,46, 46,46, 46, 
46,46, 70,51,32,32, 32,32, 
32,42, 691 


132) 32,32, 


3, 


32,32, 


32,532,532, 32, 


32,32,522 


2349 DATA 32,32,32,32,32,32, 
32, 


532,22)32, 32,32,32,32,32, 


32,32, 32,5 25, 


2350 DATA 32,32, 32,32,32,32, 
32, 42,42,32,32, 68,5, 6,1, 
21,473 

2300 DATA 12, 26,32,26, 15,32, 
51,76)9)14,5)47, 70, 21512, 
12,448 

2378 DATA 47,78, 15,14,5,46, 
46,4678, 55, 32,32, 32,32, 
32,42, 624 

2388 DATA 42,32, 32,32,32,32, 
32,32, 32,32,32,32,32,32, 
32,532,522 
2390 DATA 32,32,32,32,32,32, 
32,32, 32,32,32,32, 
32,32, 512 

2488 DATA 32,32, 32,32 
52542, 42,32 
32,532,532 

2416 DATA 32,32,32,32,32,32, 
32,32, 32, 32,32, 32, 32,32, 
32,32, 512 

2420 DATA 32,32,32,32,32,32, 
32,32, 32,323: 
32,42,822 

2438 DATA 42,32,32,32,32,32, 
32,32, 32, 32, 32,32, 32,32, 
32,32,522 

2446 DATA 3232,32,22,32,32, 

32, 32,32,32, 32,32,32,32, 
32,32,512 

2459 DATA 32,32,32,32, 32,32, 
32,42, 42,32, 32,32)32,32, 
32,32, 532 

2460 DATA 32,32,32,32,32,32, 
32,32, 32,32,32,32,32,32, 
32,32,512 


132,32, 


2478 DATA 32,32,32,32,32,32, 
32,32, 32, 32, 32)32,32,32, 
32,42,522 

2480 DATA 42,42,42,42,42,42, 
42,42, 42,42,42442,42, 42, 
42,42, 672 

2496 DATA 42,42,42,42,42,42, 
42,42,42,42,42,42,42,42, 
42,42, 672 

2586 DATA 42,42,42,42,42,42, 
42,42,70,0,0,8,8,9, 18,8, 
428 

2518 DATA 78,0,6,8,9,9,18,9, 
70,9,8,8,9,9,18,0,176 

2528 DATA 42,42, 42,42,42,42, 
42,42,42,42,42,42,42,42, 
42,42,672 

2536 DATA 42,42,42,42,42,42, 
42,42442,42,42,42442)42, 
42,42,672 

2540 DATA 42,42,42,42,42,42, 


42,42,42,32,32,32)32,32, 
32,32, 692 

2550 DATA 32,32,32, 32, 32,32, 

32,32, 32,32, 32, 32,32, 

32,32,512 

2568 DATA 32,32,32,32,32,32, 
32,32, 32, 32, 32,32,32,32, 
32,42,522 

2570 DATA 42,32, 32,32,32,32, 

32,32, 32, 32,32, 32, 42,42, 

32, 77,587 

2580 DATA 1,9,14,32,77,5, 14 
21,.32,42442,32,32,32,32,, 
32,449 

2590 DATA 32,32,32,32,32,32, 
32,42, 42, 32,32,32,32, 32, 
32,32, 532 

2600 DATA 32,32,32,32,32,32, 
32,45, 45, 45,45,32,45, 45, 
45,45, 618 

2618 DATA 32,32,32,32,32,32, 


32, 32, 32, 32,32,32,32,32, 
32,42, 522 
2626 DATA 42,32,32,32, 76,21, 
14,3,28,9, 15, 14,32, 32,32, 
32,432 
2639 DATA 32,32, 32,32,32,32, 
132,32, 32,32, 32,32, 
32,32,512 
32,75,5,25,32,32, 
142,32,32,32,32, 32, 
32, 32,541 
2650 DATA 32,32,32,32,32,32, 
32,32, 32, 32,32,32,32,32, 


2660 DATA 32,32, 32,32,32)32, 
32,32, 32,32, 32,32,32,32, 
32,42,522 

2676 DATA 42,32,32,32,32,60, 
49, 62,32, 32,83,5, 20,32, 80, 
18,643 


2686 DATA 15,28, 15,3, 15,12, 
40, 66, 1,21,4,82,1,26,5,41, 
341 

2698 DATA 46,70, 49,32,32,32, 
32,42, 42, 32, 32,32,32,32, 
32,32, 681 

2708 DATA 32,32,32,32,32,32, 
32,32, 32,32, 32,32,32,32, 
32,32,512 

2716 DATA 32, 


2736 DATA 84,5, 18,13,9,14)1, 
12,32, 77, 15)4)5, 46, 46,46, 
427 

2749 DATA 46,76,50,32,32,32, 
32,42, 42, 32, 32,32, 32,32, 
32,32, 662 

2756 DATA 32,32,32, 32,32,32, 


32,32, 32,32, 32,32,32,32, 
32,32,512 

2786 DATA 32,32,32,32,32,32, 
32,32,32, 32, 32, 32,32,32, 
32,42,522 

2770 DATA 42,32,32,32,32,60, 
51, 62,32, 32,83,5, 26, 32,85, 
16,648 

2780 DATA 32,77,5,19, 19, 1,7, 
5,32,83,3,18,5,5,14,46,37 

2796 DATA 46,76, 51,32,32,32, 
32,42, 42,32,32,32,32,32, 
32,32, 663 

2860 DATA 32,32,32,32,32,32, 
32,32, 32,32, 32,32,32,32, 
32,532,512 

2810 DATA 32,32,32,32,32,32, 
32, 32,32, 32,32,32,32,32, 
32, 42,522 

2828 DATA 42,32,32,32,32,60, 
52, 62,32, 32,86,9,5, 23,32, 
83,646 

2839 DATA 1,22,5,4,32, 83,3, 
18,5,5,14,19,4b, 46, 46,46, 
395 

2846 DATA 44,70,52,32,32,32, 
32,42, 42, 32, 32,32,32,32, 
32,32, 604 

2859 DATA 32,32,32,32, 32,32, 
32,32, 32,32, 32,32, 32,32, 
32,32, 512 

2860 DATA 32,32, 32,32,32,32, 
32,32, 32, 32, 32,32,32,32, 
32,42,522 

2876 DATA 42,32,32,32, 32,60, 
53,62,32,32, 67, 18,5, 1,28, 
5,525 

2886 DATA 32, 66,15, 1,18,4,32, 
78,9,12,5,46,46, 46, 46,46, 
494 

2899 DATA 46,76,53,32,32,32, 
32)42, 42,32, 32,32,32,32, 
32,32, 685 

2900 DATA 32,32,32,32,32,32, 
32,32,32, 32,32,32,32,32, 
32,532,512 

2910 DATA 32,32, 32,32,32,32, 
32,32, 32,32, 32,32,32,32, 
32,42,522 

2928 DATA 42,32,32,32,32,60, 
54,62, 32, 32, 7b, 15,1,4,32, 
47,585 

2930 DATA 32,86,9,5,23,32,66, 
15,1, 18,4,32,78,9,12,5,419 

2940 DATA 46,70,54, 32, 32,32, 
32,42, 42, 32, 32,32,32,32, 
32,32, 608 

2959 DATA 32,32,32,32,32,32, 
32,32, 32, 32, 32,32,32,32, 


ST 


5 PS ae Oe es eee 


32, 32,512 

2960 DATA 32,32,32,32,32,32, 
32,32, 32,32,32,32, 32,32, 
32, 42,522 

2970 DATA 42,32,32,32,32, 60, 
55,62, 32,32,78,9,12,5,32, 
76,615 

2986 DATA 15,1,4,32,86,9,5, 
23,47, 80, 18,9, 14, 28,32, 63, 
458 

2996 DATA 46,76,55,32,32,32, 
32,42, 42, 32,32,32,32,32, 
32,32, 607 

3060 DATA 32,32, 32,32,32,32, 
32,32, 32, 32,32,32, 32,32, 
32,32,512 

3810 DATA 32,32,32,32,32,32, 
32,32, 32,32,32,32, 32,32, 
32,42,522 

3020 DATA 42,32,32,32,32, 66, 
536,62,32,32,78)1,3,9, 12,9 
516 


3038 DATA 20, 25,32,83,5,18,5, 
5, 14,46, 46,46, 46,46, 46,46, 
527 


3040 DATA 48, 70,56,32,32,32, 
32,42, 42, 32,32,32, 32,32, 
32,32, 608 

350 DATA. 32,32, 32,32,32,32, 
32,32, 32,32,32,32, 32,32, 
32,32, 512 

3066 DATA 32,32, 32,32,32,32, 
32,32, 32, 32,32, 32, 32,32, 
32,42,522 

3876 DATA 42,32,32,32,32,32, 
32,32, 32,32,32,32,32,32, 
32,32, 522 

3088 DATA 32,32,32,32,32,32, 
32,32, 32,32,32,32, 32,32, 
32,532,512 

3090 DATA 32, 32,32,32,32,32, 
32,42, 42, 32,32,32,32,32, 
32,32, 832 

3109 DATA 32,32,32,32,32,32, 
32, 32, 32,32,32)32, 32,32, 
32,32, 512 

3118 DATA 32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,42,522 

312 DATA 42,42,42, 42, 42,42, 
42,42,42,42,42,42, 42,42, 
42,42,872 

JU3 DATA 42,42,42,42, 42,42, 
42,42, 42,42,42,42,42)42, 
42,42,672 

3148 DATA 42,42,42,42, 42,42, 
42,42,70,9,8,8,9,9, 18,8, 
424 

3158 DATA 76,8,6,0,8,,18,0, 
10,0,6,6,0,9, 18,9, 176 


3160 DATA 42,42,42,42,42,42, 
42,42,42,42, 42,4242, 42, 
42,42, 672 

3176 DATA 42,42,42,42,42,42, 
42,42,42,42,42,42,42,42, 
42,42,672 

3180 DATA 42,42,42,42,42,42, 
42,42, 42, 32,32,32,32,32, 
32,32, 662 

3198 DATA 32,32,32,32,32,32, 
32)32,32,32,32,32,32,32, 
32,32,512 

3260 DATA 32,32,32,32,32,32, 
32,32,32, 32, 32,32,32,32, 
32,42,522 

3218 DATA 42,32,32,32,32,32, 
32,32, 32,32, 32,32,42,42, 
32,76, 588 

3228 DATA 1,3,9,12,9,26,9,5, 
19,32,42,42,32,32,32,32, 
31 

3238 DATA 32,32, 32,32,32,32, 
32,42, 42,32, 32,32, 32,32, 
32,32, 532 

3246 DATA 32,32, 32, 32,32,32, 
32,45, 45,45, 45,45, 45,45, 
45,45, 629 

3250 DATA 45,32,32,32,32,32, 
32,32, 32, 32,32,32,32,32, 
32, 42,535 

326@ DATA 42,32,32,32,70,21, 
14,3,26,9 15, 14,32,32,32, 
32,432 

3276 DATA 32,32,32,32,32,32, 
32,32, 32,32,32,32, 32,32, 
32,32, 512 

3280 DATA 32,75, 5,25, 32,32, 
32,42, 42, 32, 32,32)32,32, 
32, 32,541 

3298 DATA 32,32,32,32,32,32, 
32,32, 32, 32,32, 32,32, 32, 
32,32,512 

3300 DATA 32,32,32,32,32,32, 
32,32, 32, 32,32, 32,32, 32, 
32,42,522 

3518 DATA 42,32, 32,32,32, 68, 
49,62, 32, 32,88, 18,9) 14,28, 
5,551 

3328 DATA 18,32, 68, 
180,47, 54, 46, 46, 
46,46, 788 

3338 DATA 46,70, 49,32,32,32, 
32,42,42,32,32,32,32,32, 
32,532,001 

#0 DATA 32,32,32,32,32,32, 

32,32, 32,32,32,32,32,32, 
32,32, 512 

3350 DATA 32,32, 32,32)32,32, 
32,32, 32, 32,32,32,32,32, 
32,42,822 


3580 DATA 42,32,32,32,32,60, 
5, 62,32, 32, 196,137,147, 
139,32,15, 1672 

3378 DATA 18,32,84, 1,16,5,46, 
4b, 4b, 46, 4b, 46, 46,46, 46, 
46,616 

3388 DATA 48,78,50,32,32,32, 
32,42, 42, 32, 32,32)32,32, 
32,32, 602 

3890 DATA 32,32, 32,32, 32,32, 
32,32, 32, 32)32,32, 32,32 
32,32, 512 

3400 DATA 32,32,32,32,32,32, 
32,32, 32, 32, 32,32,32,32, 
32,42,522 

3418 DATA 42,32,32,32,32,68, 
51,62, 32,52,73,14,3,32,08, 
3,615 

3426 DATA 18,5,5, 14,32, 7,15, 
12,46, 46,46, 46, 46, 46,46, 
46,534 

3430 DATA 45,78, 51,32, 32,32, 
32,42,42, 32, 32,32, 32,32, 
32,32, 663 

3449 DATA 32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,32,512 

3450 DATA 32,32,32,32,32,32, 
32,32, 32, 32,32,32,32,32, 
32,42,522 

$440 DATA 42,32,32,32,32, 60, 
52,62,32,32,73,14,3,32,66, 


3476 DATA 18,4,5,18,32,67,15, 
12,46, 46, 46,46, 46,46, 465 
44,539 

3489 DATA 46,78, 52,32, 
32,42, 42, 32, 32,32, 3: ee 
32,32, 604 

3499 DATA 32,32,32, 32,32,32, 
32,32,32,32,32,32,32,32, 
32,32,512 

3506 DATA 32,32,32,32,32,32, 
2, 32, 32,32, 32,32, 32,32, 
32,42, 522 

3510 DATA 42,32,32,32,32,48, 
53, 62,32,32,73, 14,3,32,67, 
21,619 

3520 DATA 18, 19,15, 18,32,47, 
15,12, 46,46, 46,46, 46,48, 
4h, 46, 564 

3538 DATA 44,76,53, 32, 32,3: 
32,42, 42,32, 32,32, 32, 
32,32, 665 

3540 DATA 32,32,32,32,32,32, 
4232 222232432, 32,32, 

32,32, 512 

3550 DATA 32,32,32,32,32,32, 
32,32, 32, 32,32, 32,32,32, 
32,42,522 


32, 


3560 DATA 42,32,52,32,32,60, 
54,62,32,32, 66,5, 12, 12,32, 
207,744 

3870 DATA 142,47,79, 6,5, 465 
46,46, 48,40, 46,46, 45,46, 
46, 46,786 

3580 DATA 46,70,54,32,32,32, 
32, 42, 42,32, 32,32, 32, 32, 
32,32, 408 

3890 DATA 32,32,32,32,32,32, 
32,32,32, 32) 32)32)32, 32, 
32,32,512 

3600 DATA 32,32, 32,32,32,32, 
32,32, 32, 32, 32)32,32, 32, 
32,42,522 

3610 DATA 42,32,32,32,32,68, 
55, 62,32, 32,85, 14,21, 19,5, 
4,559 

3h2B DATA 46,46, 46, 44,46) 46, 
4,46, 46,46, 46, 46546, 4b, 
46448, 738 

3636 DATA 46,70,55, 32, 32,32, 
32,42,42,32,32,32,32, 32, 
32,32,687 

3440 DATA 32,32,32,32,32,32, 
5245232 32,32,32,32,22 

32,32,512 

3650 DATA 32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 
32,42,522 

3660 DATA 42,32,32,32,32, 40, 
536,62,32,32,82,5,28,21, 18, 
14,572 

3470 DATA 32,77, 1,9,14,32,77, 
5, 14,2146) 4b, 46,46, 45,46, 
558 

368d DATA 46, 70,56,32,32,32, 
32,42,42,32,32,32,32,32, 
32,32, 608 

3498 DATA 32,32,32, 32,32,32, 
32,32, 32,32,32,32,32,32, 
32,32, 512 

ay ia 32,32)32,32,32)32, 

132, 32,32, 32, 32,32, 
ar 

3710 DATA 42,32,32,32,32,32, 
32,32, 32, 32,32,32,32, 32, 
32,32)522 

3728 DATA 32,32, 
32,32,32,32, 
32,32, 512 

‘3738 DATA 32,32, 
32,42) 42,32, 
32,32, 532 

3740 DATA 32,32,32,32,32,32, 


32, 32,32,32,32, 


3750 DATA 32,32,32,32,32,32, 
32,32, 32, 32,32,32,32, 32, 


» 


FS Se ae 


ca a I 


32,42,522 

3789 DATA 42,42,42,42,42,42, 
42,42, 42,4242442,42, 42, 
42,42,872 

3770 DATA 42,42,42,42,42,42, 
42,42, 42,42442,42, 42,42, 
42,42, 672 

37RO DATA 42,42,42,42,42,42, 
42,42, 255,255, 255, 255, 255, 
255, 255, 255, 2376 

3790 DATA 32,32, 32,32,32,32, 
32,32,0,32,0,0,0,32,45, 61, 
426 

4000 REM 34 SAVE PT 1 88 

4010 POKE 43,0:POKE 44,8 
SPOKE 45,0:POKE 46,48 

4015 REM 44 CHANGE , 
@ IN NEXT LINE TO 41 IF 
USING TAPE $8 

4020 SAVE "ITELCOM/Vi",8 Mb 


Pires 


2000 FOR L=B TO 80:CX=0 
FOR De 10 15:READ A 

CX+A:POKE 4PL524LB1+ 
D,ALNERT D 

2010 READ As LF ACOCK THEN PR 
INTPERROR IN LINE"; 
2940+ (L419) :STOP 

2028 NEXT L 

2048 DATA 133,253, 132,254, 32, 
264,255, 160,09, 177,253,200, 
201,0,240 6, 2508 

2059 DATA 32,219,285, 76,9, 
192,96 238, 33,208, 32,204, 
255, 32,86, 192, 2150 

2860 DATA 162,,189,0,4,157, 
6,8, 189,0,5,187, 8,9, 189,9, 
1069 

2078 DATA &,157,8,19,189,8,7, 
157,011,232, 224, 8,268, 
227, 266, 1634 

2686 DATA 33, 208,96, 32,86, 
192, 169,38, 141,24, 288, 32, 
228, 255,248, 251, 2233 

2090 DATA 169,25, 141,24,208, 
$b, 162,8, 167, 1,157,8,216, 
157,6,217, 1748 

2109 DATA 157, 8,218, 187,8, 
219,232,224, 0, 208, 257,95, 
142,05, 189, 8, 2099 

2110 DATA 4,157,8, 16,189,9, 
157,817, 189, 8,6,157, 
15 

2126 DATA 189,,7,157,0)19, 
232,224, 9, 268, 227, 96,32, 
204,265,174, 2024 

2136 DATA 197,26, 160,8, 169, 1, 
32,186,255, 173,197, 26,201, 


1,246,66, 1918 
148 DATA 169, 64, 141,28,2 
148,48, 141, 21,2, 189,8, 
141,22,2y 188, 1322 

2156 DATA 8,185, 9,2, 153, 23,2, 
200,204, 174,20, 208, 244, 
189,44, 153, 1861 

2160 DATA 23,2, 169,88, 153,24, 
2,173,189, 28, 281,85, 208, 
12,169, 44, 1552 

2170 DATA 153, 25,2, 169,87, 
153,26, 2,289, 200,200,200, 
200, 209, 208, 74, 2093, 

2189 DATA 248, 192,140,8,.185, 
8, 2,153, 28,2, 200, 204,194, 
28, 208,244, 2024 

2190 DATA 152, 142, 26, 160,2, 
32,189, 285, 96,32, 204, 255, 
173,197, 20,201, 2156 

2200 DATA 8,240, 11, 169,38, 
160, 28,32, 8, 192,32, 185, 
193,96, 169,8, 1455, 

2219 DATA 32,189, 255, 169,15, 
182,8, 168, 15,32, 186, 255, 
32,192, 285, 162, 2119 

2220 DATA 15,32, 198,255, 140, 
8,32, 207,255,201, 13,248,7, 


2239 DATA 200, 76, 38,193,189, 
1169, 


153,4,2,32, 264, 255, 
13,32, 216, 1748 
2240 DATA 255,32,218, 25: 
210, 285, 169, 32,22, 216); 
169,68, 168, 2,2278 

2250 DATA 32,0, 192, 
201, 285, 169, 7 
169, 13,32, 1842 

2260 DATA 218,255, 32,204,255, 
32, 105, 193,96, 169, 152, 168, 
28,32,0,192, 2107 

2278 DATA 32,228, 255, 246,251, 
201,32,208,247, 96,173,197, 
20,201,8,248, 2629 

2280 DATA 6,149, 147,32,218, 
285, 96, 169,97, 160, 26,22,8, 
192,32,228, 1885 

2298 DATA 255, 248, 251,201, 89, 
240, 7,201,78,248, 230, 76, 
142,193, 169, 147, 2759 

2300 DATA 32, 218,255,32, 252, 
193,32, 264, 285, 162, 1,22, 
198,255, 32, 207,2053 

2516 DATA 255, 32,207,255, 168, 
29, 234,32, 267,285, 32, 210, 
255, 136,208, 246, 2753 

2526 DATA 169,13, 32,210,255, 
32,267,285, 261, 13,249,40, 
261,34, 208, 245, 2355 

2330 DATA 32,267, 255, 261,191, 
208, 21,32, 267, 255, 261,34, 


216,255, 


248, 632,210, 2332 

2340 DATA 255, 76,215, 193,169, 
13,32,210, 255,74, 197, 193, 
32,267,255, 208, 2586 

2350 DATA 251, 76,197, 195,169, 
1, 32,195,255, 32, 204, 255, 
96,32, 284, 255, 2447 

2366 DATA 169, 1,133,184, 169, 
8, 133, 186, 169, 8,133,185, 
169,25 133,183, 1957 

2578 DATA 169,216, 133, 187, 
169,20, 133, 188,32,192,255, 
96,169, 13,141, 198, 2311 

2380 DATA 26,32,34, 195,172, 

206, 260,148, 
195,20, 162,0, 189, 1973 

2396 DATA 6,2,157, 66, 28,282, 
224, 13,208,245, 162, 8, 189, 
0,2, 157, 1677 

2468 DATA 83, 26,232,224, 13, 
208, 245, 169,48, 141, 64,20, 
141, 65,28, 141, 1834 

2418 DATA 81,26, 141,82,28, 96, 
169,76, 141,189, 20, 169, 166, 
141,212,193, 1916 

2426 DATA 32,122,193, 169,13, 
141,198, 26, 169, 1,141, 166, 
195,169, 166, 141, 2036 

2430 DATA 8,2,32, 44,195,144, 
3,76, 139, 194,32, 148, 192, 
169,, 162, 1524 

2446 DATA 0, 166,8, 32, 213,255, 
144,3,32, 249, 192, 169, 119, 
160,26,32, 1788 

2456 DATA 9, 192,32, 228, 255, 
248,251, 261,83, 240, 11,201, 
80,246, 46, 281, 2501 

2400 DATA 95, 248, 48,76, 139, 
194, 169,38, 141, 24, 268, 32, 
86,192, 169,16, 1861 

2476 DATA 141, 198,26, 162,255, 
160,255, 136,268, 253,202, 
208, 248, 286, 198, 28, 2854 

2480 DATA 173,198, 28,268,238, 
169,235,141, 24, 208, 74, 146, 
194,32, 35,261, 2678 

2498 DATA 76,139, 194,96, 174, 
65,20,232, 224, 58, 208, 11, 
169, 48,141, 65,1928 

2506 DATA 20,238, 64, 20,76, 
234,194, 142,65, 20,173,195, 
20,141, 194,26, 1816 

2510 DATA 162,6,189, 63,28, 
157,0),2,232,236, 194,28, 
208, 244, 169, 83, 1979 

2526 DATA 141, 189,20,32, 140, 
192, 169, 8, 133, 251, 169, 16, 
133,252, 162,255, 2254 

2836 DATA 166, 19, 169,251,32, 


216, 255, 144,3,32, 249, 192, 


246, 3,32, 249,246 

546 DATA 192,96, 169,0,160, 
20,32, 6,192, 76,51, 195, 189, 
19,166,26, 1551 

2550 DATA 32,9,192,162,0,169, 
4b,32, 216, 255, 232,236, 198, 
20,268, 247,2239 

2566 DATA 162, 8, 169, 157,32, 
216, 255,232, 256, 198,20, 
208, 247, 160,8, 148,242 

2576 DATA 192,26, 169, 164,32, 
216, 255, 169, 157,32, 210, 
255, 32, 228, 255, 240, 2628 

2586 DATA 251,172, 192,20, 141, 
191,20, 169, 46, 32, 216, 255, 
169, 157, 32,210, 2267 

2599 DATA 255,173,191, 26,201, 
13,240,59, 261,95, 208, 19, 
169,8,141, 166, 2142 

2606 DATA 195, 141,194, 28,56, 
%6, 261, 26, 268, 13, 192,0, 
246, 193, 136, 169, 2074 

2618 DATA 157,32, 210,255, 76, 
79,195, 41, 127, 261,32, 144, 
178, 204, 198, 26, 2149 

2626 DATA 240,173,173, 191,20, 
153,0,2,32, 210,255, 169,0, 
133,212,200, 2163 

2630 DATA 76,79, 195,173, 166, 
195,240,7, 208, 286, 166, 195, 
74,179,195, 148, 2488 

2648 DATA 194, 20, 169,13,32, 
216, 255, 96,32, 208, 285, 32, 
86,192, 169, 182,214 

2650 DATA 141,24, 208,32,228, 
255, 240, 251, 201, 133, 208, 3, 
74, 23,196, 261, 2426 

2660 DATA 137, 208,3,76,64, 
196,261, 134, 208, 3,76, 187, 
196, 261, 138, 208, 2216 

2676 DATA 3,76, 188, 196,201, 
135,208, 3, 74,209, 196, 281, 
139, 208, 3,76, 2118 

2680 DATA 234, 196,261,136, 
208,3, 76,28, 196, 261, 148, 
208, 3,76, 19, 19652113 

2696 DATA 76,211,195, 96, 76, 
211, 195,173, 219,26, 246, 18, 
169,8, 141,219, 2259 

2768 DATA 20,169, 189, 141,6, 
45, 169,54, 141, 8,45, 76,211, 
195, 169, 1, 1630 

2718 DATA 141,219, 26, 169,52, 
141,6, 45,169, 182, 141,8,45, 
7,211,195, 1828 

2726 DATA 173, 197,26, 261,8, 
246, 48, 169,8, 141, 197, 26, 
169,196, 141,74, 2602 

2738 DATA 45,169, 137, 141,75, 


» 


| REERSRERRE TES 


45,169,147, 141,76, 45, 169, 
139,141,77,45, 1761 

2740 DATA 169,84, 141,82,45, 
169,1, 141,83, 45, 169, 16, 
141,84, 45, 169, 1584 

2756 DATA 5, 141,85,45, 76, 211, 
195, 169,1, 141,197, 26, 169, 
68, 141,74, 1738 

2760 DATA 45, 169,9, 141,75, 45, 
169,19, 141, 76,45, 169,11, 
141,77, 45, 1377 

2778 DATA 169, 212,141,82,45, 
169,129, 141,83, 45, 169, 144, 
141,84, 45, 169, 1968 

2786 DATA 133,141,85,45,76, 
211,195, 173,33, 268, 261, 14, 
248, 6, 238, 33, 2034 

2790 DATA 208, 76, 211, 195, 169, 
8, 141,33, 208, 76, 211,195, 
173,32,208, 261, 2337 

2806 DATA 16,246, 4,238,32, 
268,.76,211, 195, 169,0,141, 
32,208, 76,211, 2059 

2816 DATA 195,238, 134,2,173, 
134,2, 261, 16,268, 5, 19, 8, 
141,134,2, 1754 

2826 DATA 141,89, 192,76, 200, 
195,234, 76,211,195, 173, 
218, 20, 248,31, 169, 2460 

2830 DATA 0,141, 218, 28, 169, 
79,141,143, 46, 109,14, 141, 
144,46, 169,267, 1847 

2840 DATA 141,255, 255,255, 
255, 255, 255, 255, 255,255, 
255, 255,255, 255, 255, 255, 
3966 

4000 PRINT*CCLEARINEW* 
sPRINT*CDOWN2? 
LOAD'+CHRS (34) +*CONNS GEN 
T™+CHRS(34)4", 8" 

4005 REM 34 CHANGE 
8 IN ABOVE LINE TO ,1 IF 
YOU ARE USING TAPE 1 

4610 PRINT*CDOWNS RUN" 

4020 POKE 631,13:POKE 632,13 

2POKE 633, 13:POKE 198,3 

a 


PRINT" CHOME]" 


‘COMMS GEN7 


}00 FOR L=6 TO 176:Ck=8 
FOR D=@ TO 15:READ A 

+A POKE SO432+L81b+ 
D,AENEXT D 

2018 READ AIF ACOCK THEN PR 
INT*ERROR IN LINE*; 
2049+ (L418) : STOP 

2026 NEXT 1 

2048 DATA 141, 145,46, 169,134, 
141, 147,46, 141, 148, 44,76, 


211,195, 168, 1,1957 
2050 DATA 141,218,726, 169,27, 
141, 143,46, 169, 142, 141, 
144,46, 169,79, 141, 2116 
2060 DATA 144,46, 169,6, 141, 
147,46, 141, 148, 48, 76,211, 

195, 148, 46,76, 1788 

2076 DATA 211, 195,0,173, 147, 
2,41, 15, 178, 189, 229,26, 
133, 253, 189, 229, 2187 

2080 DATA 20, 133, 254,32, 214, 
197,173, 147,2,41,112,74, 
14,74,74,178, 1791 

2896 DATA 189, 96, 207, 133,253, 
189, 112,267, 133,254, 32, 
214, 197, 173, 147,2, 2538 

2160 DATA 41,128,240, 14,169, 
74, 133, 253, 169,21, 133, 254, 
32,214, 197,76, 2148 


2119 DATA 125, 197,169, 72,133, 
253, 169,21, 133,254,32,214, 
197,173, 148,2,2292 

2128 DATA 41,1,240, 14,169, 8, 
133, 253, 169,21, 133, 254, 32, 
214,197, 76,1955 

2136 DATA 187,197, 169,19, 133, 
253, 169,21, 133,254,32,214, 
197,173, 148,2,2271 

2140 DATA 41, 16,268, 14, 169, 
33, 133, 283, 169, 21, 133,254, 
32,214,197, 76, 1963 

2156 DATA 189, 197,169,27,133, 
253, 189,21, 133,254,32,214, 
197,173, 148,2,2311 

2166 DATA 41,224,74,74,74, 74, 
74, 178,189, 248, 28, 133,253, 
189, 0,21, 1858 

2176 DATA 133,254, 32, 214,197, 
96, 168,8,177,253,200, 201, 
8, 248, 6, 32,2195 

2188 DATA 218, 255, 76,216,197, 
96,253, 32,218, 255, 260,204, 


133,21, 144,245, 2747 

2190 DATA 94,169, 135, 141,24, 
208, 32,86, 192, 169,8,141, 
135, 21,141, 136, 1826 

2266 DATA 21,169, 62,141,81, 
32,32,228,255, 240, 251, 261, 
136,208,3, 76, 2136 

2218 DATA 73,199, 261, 133, 208, 
8, 169, 6,32,57, 199, 76,51, 
198, 261, 134, 1945 

226 DATA 208,8, 169,7,32,57, 
199, 76,51, 198, 261, 135,268, 
216, 169,8,1942 

2238 DATA 32,57, 199,169, 32, 
141,81,32, 169,62, 141,65, 
33,32, 228, 255, 1728 

2240 DATA 249,241, 261,133, 


208, 3,76, 186,198, 261, 134, 

208, 8, 169, 32,32, 2198 

2250 DATA 57,199, 76,196, 198, 
201, 135,268, 8, 189, 64,32, 
57,199, 76, 196, 1891 

2268 DATA 198,201, 136, 208, 
206, 169, 96,32,57, 199, 169, 
32,141,65,33, 169, 2111 

2276 DATA 62,141,49,34,32, 
228, 255,248, 241, 261,133, 
208, 3,76, 137, 198, 2238 

2286 DATA 201, 134,268, 230, 
169, 128,32,57, 199, 169,32, 
141, 49,34, 169, 62,2614 

2296 DATA 141, 81,36, 169, 151, 
141,24,208, 189,62, 141,81, 
34, 32, 228, 255, 1955 

2300 DATA 201,136, 268,3,76, 
81, 199, 201, 133, 268,3, 76, 
228, 198,261, 134,2278 

2310 DATA 208, 235, 169,1, 32, 
85, 199, 76,228, 198, 169, 32, 
141, 65,37, 169, 2016 

2320 DATA 42, 141,89,38,32, 
228, 255,240, 241, 201,133, 
268,3, 74, 34,199, 2189 


2336 DATA 261, 134,268,230, 
169, 16,32, 65, 199,74, 34, 
199,169, 32, 141,81, 1986 

2340 DATA 36, 169, 62,141, 65, 
37,32,228, 255, 240,241, 261, 

33,268,3, 76,2127 

2358 DATA 31,199, 261, 137,208, 
8, 169, 32,32, 65,199, 76,31, 
199,261, 134, 1922 

2360 DATA 268,8, 169, 96,32, 65, 
199, 76,31, 199, 261, 138, 268, 
8, 169, 160, 1967 

2370 DATA 32,65, 199,76,31, 
199,261,135, 208, 194, 169, 
224,32, 65, 199, 76, 2105, 

2580 DATA 186, 198,169,23,141, 
24,268, 149,32, 141,89,38, 
173,135, 21,141, 1888 

2396 DATA 147, 2,173, 136,21, 
141, 148, 2, 96,24, 199, 135, 
21, 141, 135,21, 1452 

2400 DATA 96,24, 169, 136,21, 
141,136, 21, 96, 169, 6) 141, 
135, 21,76, 147, 1475 

2410 DATA 198, 169,0, 141, 136, 
21,76, 34, 199, 173, 197,26, 
261, 1,240,5, 1811 

2426 DATA 169, 168, 141,212, 
193,32, 122, 193, 169,76, 141, 
189, 26, 169,15, 141, 2150 

2438 DATA 198,28, 169, 1,141, 
166, 195, 169, 168, 141,0,2, 
32,44, 195,144, 1785, 

244G DATA 1,96,32, 148,192, 
169,162, 139, 168, 23,32, 
213,255, 144,3, 1761 

2450 DATA 32,249, 192, 173, 172, 
23,141, 147,2,173,173, 23, 
141,148, 2, 169, 1960 

2460 DATA 101, 166,23,32,0, 
192, 169, 139, 168, 23, 32,9, 
192,169, 13,32, 1437 

2478 DATA 210, 255,32, 219,255, 
32,210,255, 169, 34, 169,23, 
32,0192, 169, 2238 

2488 DATA 156, 166,23,32, 0, 
192, 169, 13,32, 218, 255, 32, 
210,255,32, 210, 1981 

2490 DATA 255, 169, 16, 160,23, 
32,0192, 32,51, 197,169, 13, 
32,210,255, 1866 

2500 DATA 32,219,255, 32,219, 
285, 169,213, 166, 23, 32,0, 
192, 169, 175, 160, 2287 

DATA 23, 32,0, 192, 169,13, 
32,210, 255, 32, 216, 255, 9%, 
182, , 169, 1850 

2520 DATA 8,157, 139,23,232, 
224, 14,208, 248, 12,9, 169, 


» 


SCA eR 


0,157, 156, 23, 1912 
2530 DATA 252,224, 14, 208,248, 
162,65, 169,8, 157, 172,23, 

232, 162, 6,169, 2172 

2548 DATA G,157,175,23,232, 
224, 36,208, 248, 169, 181, 
160,23,32,0,192, 1988 

2550 DATA 169,15, 141,198, 28, 
32,51, 195,148, 119,23, 144, 
1,96, 162,09, 1506 

2560 DATA 189,0,2,157,139,23, 
232,234,194, 20, 208, 244, 
169,13,32, 210, 2068 

2578 DATA 255, 169,25, 160,23, 
32,0192, 189, 15,141, 198, 
24,32, 51,195, 1677 

2580 DATA 192,0,240, 14,162,0, 
189,0,2, 157, 158,23, 232, 
236, 194,28, 1817 

2596 DATA 208, 244,32,241,197, 
173,147,2, 141, 172, 23,173, 
148,2, 141, 173, 2217 

2698 DATA 23, 149,13,32,210, 
285, 32,218, 255, 169,120, 
166,23,32, 6,192, 1895 

261 DATA 32,51, 197, 169,13, 
32,218,255, 169,45, 168,23, 
32,94 192, 169, 1749 

2626 DATA 36, 141, 198,28,32, 
51,1954 192,0,248, 14, 162,0, 
189,9,2,1472 

2638 DATA 157, 175,25, 232,236, 
194, 20,208, 244, 169, 17,32, 
216,255, 32, 210, 2414 

‘2b4B DATA 255, 149,74, 160,23, 
32,9, 192, 32, 228, 255, 248, 
251, 201,78, 208, 2398 

2650 DATA 3,76, 253,199,261, 
89,268,248, 149,147,32,218, 
255, 169,83, 141,2475 

2660 DATA 189,20, 169,168, 141, 
,2,172, 119, 23, 192,0, 248, 
14,162,8,1611 

2670 DATA 189, 129,23, 157, 1,2, 
232,234, 119,23, 208, 244, 
172, 119,23, 266, 2687 

2480 DATA 140, 194,28,32,149, 
192, 169, 139, 133, 251, 169, 
3, 133, 252,162, 212, 2361 

2698 DATA 160, 23, 169,251,32, 
216,255, 144,3,32, 249, 192, 
246, 3,32, 249, 2250 

2709 DATA 192,96,8,32,48,267, 
234,234,234, 234,32, 186, 
255, 169, 8,32, 2185 

2719 DATA 189, 255,32, 192,255, 
169,8, 133, 251,189,8,133, 
52, 1608177, 2375 

2720 DATA 251,178, 189, 


194, 20, 148, 192,2 

61, 255, 2222 

2739 DATA 173, 191, 28,32, 210, 
255,32, 284, 255, 172,192, 28, 
206, 192,40, 288, 2396 

2748 DATA 222,162, 4,532,261, 
285, 169, 13,32, 216, 255,32, 
204, 255, 32, 155,225: 

2758 DATA 281, 165,251, 24,105, 
40,133,251, 105,252, 105, 0, 
133,252, 261, 11,2289 

2769 DATA 208,187, 165,251, 
201,252,208, 181,162, 4,32, 
21, 255,169, 13,32,2501 

2776 DATA 210, 255,32, 264,255, 
169, 4,22, 195, 255, %, 162, 
255, 160,255, 136, 2675 

2788 DATA 208, 253,262,208, 
248, 94, 142,260,202, 208, 
283, 96,8, 173,32, 208, 2749 

2799 DATA 141,69, 24,169,8, 
141665244169, 15, 141,24, 
212, 149,48, 133, 1545 

2088 DATA 107, 169,0,133, 196, 
169, 1, 141,68, 24, 168,2, 162, 
2, 160, 255, 1668 

2819 DATA 32,186,258 169)1, 
162,147, 168,2,32,189, 255, 
32)192,285, 162,231 

2826 DATA 2,32,198, 285,32, 
228, 255, 261, 9,268,3,76,9, 
203,141, 191, 2054 

2830 DATA 20,41, 128,208, 68, 
32,204,255, 174,191, 28,189, 
137,2),261,8, 1889 

2849 DATA 208,3, 76,194,202, 
189, 137,21, 141, 67,24, 261, 
34,268,2, 169, 1876 

2856 DATA 39,32, 216,255,173, 
6,24, 240, 32, 173, 68,24, 
240, 24, 1600, 1768 

2860 DATA 173,67,24, 145,196, 
236, 186, 208, 16, 238, 197, 
165, 197, 261, 159, 268, 2252 

2879 DATA 8, 169, 6,141, 68,24, 
238, 32, 268, 32, 204, 255,32, 
228, 255, 261, 2695 

2880 DATA 9,240, 156,141,191, 
26, 170,189, 11,22,261,9, 
248,17, 141,191, 1930 

2896 DATA 26, 162,2,32,261, 
255, 173,191, 20,32,218,255, 
16,223, 261, 173, 2226 

2906 DATA 191,28, 261, 133,208, 
6,32,23, 192, 76,223, 261, 
201, 137, 268, 6, 2658 

2918 DATA 32,67, 192,76, 223, 
261,201,134, 208, 11, 169,1, 
141, 665 24,32, 1778 


162, 


2928 DATA 123,203, 76, 223,201, 
201, 138,208, 14, 169,0,141, 
66,24, 173, 69, 2029 

2938 DATA 24, 141,32, 208, 76, 
223, 261,261, 135, 208, 6,32, 
69, 203, 74, 223, 2658 

2940 DATA 261,201, 139,208, 6, 
32,190, 204, 76,223, 261, 261, 
136, 208, 9,32, 2267 

2950 DATA 108, 192,32,212,194, 
76,223,201, 261, 148, 208, 3, 


201, 7,248, 10,201,5, 240,17, 
76,223,261, 2229 

2976 DATA 238,32, 268, 173,218, 
20,248,3,32,123,203,76, 
223, 261, 168, 9,2150 

2989 DATA 185,175, 23,261,9, 
248, 28,176, 140,192, 26, 189, 
11,22, 141, 1911928 

2996 DATA 20,162,2,32, 281, 
285, 173,191,20,32,210,255, 
172,192, 26, 268, 2137 

3009 DATA 76,224, 262,32, 204, 
255, 76,223, 261,32, 264, 255, 
169, 95,32, 210, 2490 

3610 DATA 255, 169, 157,32,218, 
285, 169,32,32, 216,255,169, 
157,32, 210, 255, 2599 

3026 DATA 76,57,262,169,2,32, 
195, 285, 149,9, 141, 66, 24, 
169, 1,141, 1699 

3036 DATA 68, 24,238, 106, 208, 
2,258, 107, 169, 0, 160,0,145, 
106,173, 69, 1797 

3049 DATA 24, 141,32,208,96, 
169,6, 133,251,169, 12, 133, 
252, 160, 0,177, 1957 

3058 DATA 251,240, 37, 178, 189, 
11,22, 141, 191,26, 162,2,32, 
261, 255,173, 2097 

3060 DATA 191,20,32,219,255, 
2, 264, 255, 165, 251, 24, 165, 
1,133,251, 168,2294 

3078 DATA 252, 185, , 133, 252, 
74,79, 263,76, 223, 201, 169, 
50,1411, 212,2173 

3088 DATA 169,25, 141,5,212, 
169,32, 141,4, 212, 169,33, 
141,4,212, 96,1765 

3090 DATA 141,4,212,98,255, 
255, 254,255, 255, 255,255, 
255, 255, 255, 255, 255, 3812 

3189 DATA 6,8,8,8,1,0,9,0,0, 
6,4,9,0,9,8,8,13 

3119 DATA 8,0,8,0,0,0,9,0,0, 
,0,8,1,0,8,8,1 


3128 DATA 255, 264, 258,255, 


255, 258, 255, 255, 255, 255, 
285, 255,254, 255,255,239, 
4962 

‘3136 DATA 254,255,255, 255, 
285, 255, 255, 255, 255, 
285, 255, 255, 255, 255,255, 
4979 

3140 DATA 6,8,9,0,8,9,9,8,0, 
8,0,2,1,8,9,8,19 

3150 DATA 8,32,8,8,0,0,0,9,0, 
8,0,64,0,0,8,0,96 

3160 DATA 169, 14,232,219, 258, 
169,8, 32, 210, 255, 169,5, 32, 
218,255, 169, 2194 

3178 DATA 6, 141,147, 2,32, 208, 
285, 32, 86,192, 189,166,141, 
24,208, 32, 1837 

3189 DATA 228, 255, 240, 2 
201, 133,268, 6,32, 241, 197, 
7528, 264,201, 137, 2638 

3199 DATA 208, 3,76, 109,204, 
281,154,268, 11, 169, 25,141, 
24,208, 32, 81, 1832 

3269 DATA 206, 76,28,204, 291, 
138, 208, 3,76, 179, 264,281, 
135, 208, 3,76, 2138 

3218 DATA 137, 264,281,139, 
208, 3,76, 148,204, 201, 134, 
208, 3,76, 162,204, 2518 | 

3226 DATA 201,140, 208,3,76, 
173,264, 76,31, 204, 76,28, 
204, 169,23, 141, 1949 

3236 DATA 24,268, 169, 147,32, 
‘246, 255,32, 28, 194,32, 159, 
199,32, 173, 261, 2095 

3249 DATA 7,20, 284,76, 20, 
204,74, 28,204, 168,23, 141, 
24,208, 32,283, 1750 

3256 DATA 199,76, 26, 284, 169, 
23, 141,24, 208, 32, 89,199, 
32,105, 195, 76,1790 

3260 DATA 20,204, 169,23,141, 
24, 208, 32, 60, 205, 74, 28, 
204,32, 268, 195, 1813 

DATA 76,28, 264, 169,23, 
141,24, 268, 32,86, 194,76, 
20,284, 185, 196, 1748 

3280 DATA 281,8,208,7,165, | 
167,201, 48,208, 1,96, 162,3, 
230, 166,288, 1951 

3290 DATA 2,238, 167, 169,6, 

18, 145, 196, 282,208,241, 
174,82,26, 232, 2078 | 

3360 DATA 224,58,208,11,169, | 7 
48,141,82,20,238, 81, 20,76, | 
242, 204,142, 1964 

3319 DATA 82, 20,173,195, 28, 
141,194, 26, 162,0, 189,86, 
20,157, 9,2, 1485 
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3528 DATA 232,234, 194,28, 268, 
244, 169,82, 141,189, 28,22, 
146, 192, 169,0,2269 

3330 DATA 132,251, 169,48, 133, 
252, 166, 184,154, 197, 169, 
251,32,216, 255, 144, 259 

3348 DATA 3,32,249, 192,249, 
12,249,192, 169, 0,133, 106, 
189,48, 133, 1959 

3B58 DATA 107, 169,0,141, 64, 


24, 169,1, 141, 68,24, 96,169, 
76) 141, 189, 1581 
3340 DATA 28,169, 191,141,212, 


193,32,122,193, 
198,268,169, 1,1984 

O78 DATA 141,186,195, 

191,141,,2,32, 44, 195 

3,74, 113,205, 1817 

9 DATA 32,148,192, 169,9, 

142, 168, 48,32,213,255, 

14,3, 32,249, 1831 

6 DATA 192,169,119, 168,28, 

32,0; 192,32, 228,255, 240, 

201,83,248, 2414 

3480 DATA 14,261, 86,246,101, 
281, 95, 208, 3,76, 69, 206, 76, 
113,205, 169, 2057 

3410 DATA 147,32, 218,255, 168, 
8,133, 186, 169, 48, 133, 197, 
173,8,48, 248, 1978 

3426 DATA 26, 140,8, 177, 188, 
201, 8,249,52, 32,210,255, 
32, 76, 286,32, 1799 

3438 DATA 198, 205,238, 106, 
208, 235,230, 197,76, 161, 
205, 169, 33, 168, 207,32, 2562 

3440 DATA 9,192,532, 105, 193, 
9b, 12, 228, 255,208, 1, 9, 
261,32,248,5, 1916 

SMSO DATA 281, 95,248, 17,96, 
32,228, 285, 261,32,268, 249, 
96,32, 228, 255, 2465 

3480 DATA 248,251, 76,113,205, 
164, 104, 74,113,265, 189,4, 
174,219, 26,224, 2297 

TATO DATA 0,249,7, 162, 6,160, 
8, 76,254,285, 162,4, 188, 7, 
32,186, 1661 

$480 DATA 255,169,0,22, 189, 
255,32, 192, 255, 169, 6,133, 
198, 169,48, 133, 2137 


9, 13,141, 


9, 


44, 


3490 DATA 107, 168,0,177, 196, 
261,8,240,23,141, 191,26, 
162, 4,32, 281, 1785 

3500 DATA 255,173, 191,20,32, 
219, 255,238, 106, 208, 238, 
236, 187,76, 17, 266, 2546 

3510 DATA 162, 4,32, 201, 255, 
169, 13,32, 210, 255,32, 204, 
255, 162, 4,32, 2622 

3526 DATA 195,255, 76,113,205, 
96,168, 28,162,255, 282,208, 
283, 136,268, 248, 2792 

3530 DATA 96, 142,8, 169,0,157, 
8, 12,157,013, 157,0,14, 
157,0, 1094 

3540 DATA 15,232,268, 241, 149, 
12, 133,254, 169, 0, 133, 253, 
169, 147,32,219, 237 

3858 DATA 255, 32,228, 255, 208, 
8,32, 238, 206,76, 113,206, 
7,241, 286, 261, 2571 

3560 DATA 26, 248,42,201,95, 
248, 88, 201, 13, 248,70, 201, 
34,268,2, 169, 2064 

3570 DATA 39, 160,, 145, 253, 
32,218,255, 230,253, 268, 2, 
238, 254, 165, 254, 2698 

3580 DATA 201, 15,268, 6, 165, 
253, 261,231,240, 93, 76,113, 
206, 188,254, 201,2588 

3590 DATA 12,268,9, 165,253, 
21,0, 208, 3, 76,113,286, 
165, 253, 56,233, 2161 

3400 DATA 1,133,253, 165,254, 
233, 0,133,254, 169, 26,32, 
216,255, 76, 113,2301 

3418 DATA 206, 169,95, 32,218, 
255, 169, 13, 140,9, 145,253, 
16,152,206, 16,2301 

3428 DATA 1,169, 6, 145,253, 96, 
169,95, 32, 210, 255, 169, 157, 
32,216,255, 2248 

34630 DATA 96, 141,191,20,261, 
20,248,21,281,13,240,17, 
261, 32,174, 3, 1813 

‘3649 DATA 74, 113,286, 173,191, 
26, 261,96, 144,3, 76, 16,267, 
7,127,206, 1931 

3650 DATA 173,191, 26, 261, 193, 
176,3,76, 113,206, 261,219, 
144, 239, 76, 113, 2344 


Bebo DATA 206, 147,32, 32, 
17,78, 79, 32,78, 73, 76, 
13,9,4,941 

3478 DATA 169, 4,174,219, 28, 
224, 5,240, 5, 162, 6,160,9, 
9, 162)4, 1645 

3680 DATA 148,7, 96,255, 255, 
255, 255, 255, 255, 255, 255, 
255, 254,255, 255,239, 3561 

3698 DATA 254, 255, 255, 255, 
255, 255, 255,255, 255, 255, 
55, 255, 255, 255, 255, 255, 
4079 

3706 DATA 68, 126,43, 128,66, 
128,63,0,0,6,9,0,0,0,8,8, 
a8 

3710 DATA 21,267,21,267,21, 
207, 21,8,43,47,8,8,8,0,9, 
9,815 

DATA 147,32,32, 17, 17,78, 
79, 32, 78,73,76, 69, 13,8, 
11,111,956 

3730 DATA 112,113, 61,42, 63, 
41,42, 255, 255, 255,255,255, 
255, 255, 255, 255, 2789 

3740 DATA 4,0,8,8,1,4,0,8,9, 
9,4,9,8,8,0,8,13 

3750 DATA 9,8,8,0,0,9,8,0,8, 
9,0,0,1,0,8,8,1 

3740 DATA 9,204, 255,255, 255, 
255, 255, 255, 255, 255, 255, 
255, 254,255, 255, 239, 3757 

3778 DATA 254, 255,255,255, 
285, 255,255, 255, 255, 255, 
285, 255, 255, 255, 285, 255, 
4079 

3788 DATA 6,6,6,6,0,6,9,8,8, 
8,,2,1,0,0,8,19 

3796 DATA 9,32,8,0,8,9,0,0,9, 
9,0, 1000, 10,0, 40, 182 

3800 DATA 9,255,255, 255,255, 
7, 285, 258, 255, 255, 255, 255, 
255, 255, 255,255, 3577 

4008 REM 8% NOW SAVE PROG 
" 

4050 POKE 43, 9:POKE 44,192 
SPOKE 45,1:POKE 46,208 
4935 RENN CHANGE ,8 IN NEXT 
LINE TO ,1 IF YOU ARE 

USING TAPE 3% 
4040 SAVE *2TELCON/VI",8 Ml 
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Daryl Bowers adds 
ds and flies to the 


hazards which our 


little frog must face. 


AS PROMISED, THIS MONTH'S: 
exiting installment _ concerns 
the FLY and BIRD. These two 
routines are very similar and 
therefore it will suffice to ex- 
plain just one in detail. As 
usual, the first step is to insert 
calls to the routines in the main 
loop at the start. Lines 1540 and 
12550 do this. 

The first two lines check 
whether the fly has started to 
move yet. If not (FLYMOVE=0) 
a branch is made to GETFLY, 
which we will come to later. 
FLYXLO the fly’s X position (low 
byte), is stored in $DO0C (x 
position of sprite number six). 
The next nine lines check 
FLYXHI, the X position’s high 
bit, and either set or reset bit six 
‘of $D010 (most significant bit of 
the sprite’s X co-ordinate). 

Stored at $DOOD js 108, the 
fly's Y co-ordinate, which does 
not alter (our fly hasn't heard of 
wind currents yet!).. 

The fly has two frames of 
animation stored at sprite 
definitions 219 and 220. 
WINGFLY is a variable which 
alternates in value between 
zero and one. Depending on 
this value either 219 or 220 is 
stored in $O7FE (sprite six defin- 
ition pointer). Following this, 
WINGEFLY is ‘Exclusive Or'ed 
with one to reverse the value. 

The next 15 lines are 
concerned with the fly's 
movements. FLYDEL, as its 
name suggests, is a delay 
counter. When it reaches zero, 
the fly's speed, FLYSPD, is 
restored into FLYDEL ready for 
the next time. Next the X co- 
ordinate is reduced by one. Ifit 
is equal to 255 then the fly has 
either just come on to the 
screen or gone off it. The high 
bit of the X co-ordinate is 
decreased and if the value is 
not negative then the fly is on 
the right side of the screen and 
nothing needs to be done. If, 
however, it is negative, then 
the fly has gone off the left side 
of the screen and so the high 
bitis increased up to one again, 
ready for its next appearance, 
and FLYMOVE is reset to zero. 


EEO: TREES 


Ke = 
eae? erat — 
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— 
1548 ISR FLY 9690 LA FLYSPD 
1558 ASR“BRD 8788 STA FLYDEL 
8320 ; 8719 DEC FLYXLO 
8336 3 8728 LOA FLYXLO 
8340 FLY 8730 CHP SSF 
8350 ; 8748 BNE NONVELY 
8360 ; 8758 DEC FLYXHI 
8378 LDA FLYKOVE 8768 LOA FLYXHI 
8388 BEQ GETFLY 8776 BPL NOMVFLY 
9398 PRNTFLY UDA FLYXLO 8789 INC FLYXHI 
2400 STA sp9ac 8790 INC FLYXHI 
8418 LDA FLYXHI 8808 Loa ta 
8426 BE NEXTFLY 2818 STA FLYHOVE 
8438 LOA sDe18 8828 NONVELY 
844g ORA #64 8836 RTS 
8458 STA $0818 0848 ; 
8448 SMP NKTFLY2 8858 i 
8478 NEXTFLY 8860 GETFLY 
8480 LOA $0616 8879 LOY FLYPOS 
8496 AND 4255-64 8888 DEC FLYDEL 
9509 STA soai@ 8890 BNE NOTFLY 
8518 NXTFLY2 9980 INC FLYPOS 
8528 LOA #108 8918 LDA RANDTAB, Y 
8538 STA D080 8928 BPL CHKFLY 
8540 LDA WINGFLY 0938 Loa #8 
8588 BEQ LOFLY 8948 STA FLYPOS 
8568 Loa #219 8958 CHKFLY 
8578 STA SO7FE 8968 CHE at 
8588 IMP MVFLY 8978 BNE NOTFLY 
9598 LOFLY 8988 ; 
8608 LDA #226 8998 UA #1 
e618 STA SA7FE 9000 STA FLYMOVE 
8620 MVFLY 9618 NOTFLY RIS 
8630 LDA WINGFLY 9820 5 
2640 EOR #1 9030 ; 
86s0 STA WINGFLY 7648 i 
8660 NOCHW 9050 BRD 
8678 DEC FLYDEL 9660 ; 
8688 BNE NOMVFLY 78 i 
The latest section is only needs to be reset to zero, the BRD - such as different sprite 
called if the fly has not yet start of the table. If the valueis definitions and speed of 


started to move. FLYPOS 
contains the position of the 
current value in the random 
number table RANDTAB, andif 
FLYDEL has reached zero then 
this value is checked to see if it 
is positive or negative. A 
negative number indicates that 
the end of the table has been 
reached, and that FLYPOS 


psoitive it is checked to see if it 
is zero or one. If the value is 
zero, then nothing happens, 
and we return to the main loop. 
If the value is one, however, we 
store a one in FLYMOVE tostart 
the fly moving again. 

There are few changes to 
the above routine involved in 
printing and moving the bird 


movement. By comparing the 
two it is easy to see how they 
differ. 

To execute the code, follow 
the same steps as outlined in 
the last issue. Next issue will 
provide a routine to update the 
status panel at the bottom of 
the screen. 


Programming 


STA spaaF 
LDA WINGBRD 


9088 LOA BROMOVE 


3098 BEQ GETBRD 
9108 LOA BROXLO 
118 STA SDE 
9128 LDA BROXHT 
9138 BEG NEXTBRD 
9149 LOA $0819 
9159 ORA #128 
9168 STA $Da18 
178 NXTBRD2 


9188 NEXTBRD 
9190 
9208 
9210 
9228 NXTBRDZ 
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Weekend Brea 


We sent our roving reporter, 


Marie Curry, on a 


Commodore computer 
weekend. Here’s her reaction] 


AS ONE OF THOSE UNFORTUNATE 
people whose education was woefully 
lacking when it comes to the computer 
revolution, | reached the stage where | 
began to feel that | should not let the 
march of technology just stompt right 
over me. | then heard about computer 
weekends run by a company called 
‘Ardmore Adventure — better known for 
its involvement in. children’s activity 
camps. I signed up for a weekend at the 
Crest Hotel in High Wycombe and it was 
with no small amount of trepidation that | 
set off to attend on a freezing cold Friday 
in February 

The actual course begins on Saturday 
morning, but | decided to go on the Friday 
in order to get my bearings and to meet 
some of the people who have the 
mammoth task of organising the weekend 
breaks. All the equipment must be set up 
in advance and, of course, it has to be 
shipped in since Crest Hotels aren't 
normally provided with enough 
Commodore computers to keep 50 micro 
enthusiasts happy for 48 hours. 

The aims of the course are simple. You 
should attend with the intention of doing 
exactly as you please as long as it’s 
connected with computers. If you want to 
tackle advanced machine code 
programming then there'll be somebody 
there to help you. Alternatively, if you're 
completely computer illiterate, like me, 
then you can start on the absolute basics 
of Basic and work your way up. 

The whole weekend package includes 
accommodation and meals but if you 
don’t want to stay at the hotel and mix 
with your fellow victims outside of study 
hours then you can go somewhere else 
and pay only the tuition fee. 

I decided togo for the all-singing, all- 
dancing, meals and microchips inclusive 
version — and | wasn't disappointed. 


The Surroundings 


1 spent a very pleasant two days in the 
Crest Hotel in High Wycombe. The 
accommodation was clean and 
‘comfortable and the service was fast and 
efficient, executed with a lavish amount 
of goodwill. During a sub-zero February 
weekend (you remember those!) there 
wasn’t so much as a hint of a draught. 

The course was exceedingly hard work 
and after a whole days brain drain it was 
nice to know that there was a decent meal 
waiting and a good night's sleep. 

Two sizeable rooms had been set aside 
to accommodate the huge amounts of 


BASIC TRAINING 


electronic equipment which had been 
bought in to cope with the large numbers 
of ‘students’ who were attending that 
weekend. One room was allocated to the 
under 14s and the other was for the more 
mature students, By Saturday morning the 
jumble of wires, polystyrene cardboard 
and plastic which had infested the rooms 
on Friday evening had been transformed 
into a very spruce looking set-up with 
Commodore 64s and 128s adorning tables 
around the walls. 

In the lobby outside there was a 


* plentiful supply of tea, coffee, biscuits and 


orange squash for those who fell by the 
wayside and had to have a break for 
resuscitation. There was a morning break 
for coffee and an afternoon break for tea, 
just like those long ago playtimes at 
school. These were quite productive in 
themselves as every one was able to get to 
know each other and compare notes, 


The Mentors 


You may possibly have heard of Ardmore 
Adventure before reading this article, 
since for some time the company has 
been involved in running children’s 
adventure holidays 

The first computer weekend was held 
in April 1985 and more have been run at 
regular intervals since then. Ardmore had 
realised — through contact with parents 
— that many adults were uneasy with 
computers and suffered from that disease 
which is common among those of us who 
are no longer teenagers — technophobia. 
It must be very frustrating for parents with 
school age children to realise that there is 
one homework subject on which they can 
give absolutely no useful advice at all. 
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The weekend | attended was graced 
with six exceptionally gifted Ardmore 
staff who come from a variety of walks of 
life and dedicate their weekends to the 
alleviation of the sufferings of those who 
are less hi-tech than themselves. 

Doug Gregory, who is a teacher by 
trade, oversees operations, and he is ably 


assisted by Eric Doyle — computer 
journalist, photographer and 
experienced programmer. Paul and 


Keith, both college students studying 
computer related subjects, take the junior 
class (commonly referred to by Ardmore 
staff as the advanced group!). Beginners, 
like myself, are assisted by Lee, whois also 
involved in education in his other life and 
John who claims to be an estate agent 
from Monday to Friday. As | said, a mixed 
bunch but a very well chosen and able 
group of advisors. The course was running 
at maximum the weekend | attended but 
no matter how few pupils sign up there 
will never be less than two staff 

As | mentioned earlier, when the 
course begins you are told that you Ean 
really do as you please. This is the only 
rule which must be adhered to at all times. 
With such a diverse mixture of staff 
available, there is always someone who 
can advise you on any subject under the 
Commodore sun. | began on Saturday 
morning as an absolute beginner and | 
like to think that by Sunday evening | was 
no longer exactly that 


The Enthusiasts 

The weekends attract an incredible 
variety of people and the one which | 
attended was especially diverse since 
many of those present had actually won 
their weekend break in a Commodore 


spot the ball competition (yes, people do 
actually win them!) 

What | found most surprising was that 
there were people present who had never 
even touched a computer in their lives 
before — even | have a certain amount of 
hands-on experience. 

These particular individuals were 
usually those who wanted to find out a bit 
about computers before actually 
investing their hard earned money in one. 
It seems to me an eminently sensible idea 
since if you don’t know the difference 
between hardware and software and 
you've never even seen a disk drive then 
the task of choosing and purchasing a 
computer from the enormous variety at 
present available on the market is 
daunting at best and terrifying at worst. 

At the other end of the spectrum were 
those who owned C64s, knew their way 
around the keyboard fairly well, had a 


grasp of Basic, possibly a smattering of 
machine code and had come to a sort of 
halt in their self-teaching programme. The 
weekend for these types, regarded by 
myself as the boffins of the group, 
provided the consolidation of their 
knowledge and the pointers they needed 
to set them leaping ahead once more. 

have been involved in the computer 
industry for some time and. the 
individuality of those | come into contact 
with has never ceased to amaze me. A 
policeman, a lady who runs an aquatic 
garden centre and an animal nutritionist 
were just three of the people who were 
thrown together for a weekend with 
nothing in common bar an interest in 
computers. If you were to deal with the 
weekend merely in human terms, it 
provided a chance to associate with some 
very interesting and intelligent people 
but of course there was much more to it 
than that. The most important part is still 
to come. 


The Curriculum 

The course has no strictly formal 
structure. Probably the best way to give 
you some sort of idea about what is 
available is if | detail how my teaching was 
arranged and what | was able to get out of 
it, 

It would be impossible to have an 
inflexible curriculum since the organisers 
have no idea what sort of span of abilities 
they wil be dealing with, in terms of 
micro-knowledge, until everyone turns 
up on the first day. 

The initial task for everyone is to 
declare themselves an absolute beginner 
or otherwise. | was the former and sol was 
treated to a well planned and instructive 
two hour tutorial on Basic. | was sharing a 
C64 with a brilliant fellow illiterate called 
Letty and together we managed to 


progress through our tutorial sheets in 
leaps and bounds. 


These sheets were compiled by Doug 
Gregory and are concise and very well 
structured. They deal with Basicin simple 
steps giving practical exercises for 
illustration. Fundamentally, the sheets are 
designed to make you feel at home with 
the computer and also with very simple 
Basic. They also serve to enable you to 
become familiar with the 64 which is very 
important when so many people feel 
nervous when confronted with a 
computer keyboard. 

After about 90 minutes my partner and 
I had managed to write and run a simple 
maths program for testing arithmetic. 
When we typed it in and it ran first time 
we felt like geniuses. The greatest asset of 
the course is that if you do get stuck then 
there is always someone within shouting 
distance who will be at your elbow in a 
few seconds to sort out your problems. 
This saves much poring over hot 
keyboards and much sweating over 
confused listings, 


Weekend Break 


After a sumptuous lunch we returned 
for more intellectual stimulus and found 
that we were about to be introduced to 
Logo. 

Logo is a language which is often used 
in schools to teach young children the 
type of logical thought which is necessary 
when working with computers. Logo is 
very simple to learn as a concept and | 
found that | was soon guiding my turtle 
around the screen and happily defining 
my own commands. | began to feel very 
self-confident about using it and for 
someone who has very little experience, it 
is a useful tool, although after about an 
hour I began to feel rightly or wrongly — 
that its uses are very limited. My fellow 
sufferers also seemed to be getting the 
hang of it fairly well, although whether 
this was due to the graphic human turtle 
demonstration with which the class 
kicked off will probably never be known! 

When you felt that things were getting 
perhaps just a little bit tedious, one word 
would see you whisked away to 
something different but equally 
instructive. During the afternoon period 
my fellow students became re-involved in 
Basic, learnt. the wonders of music 
programs on the 64 of just had a quick go 
at Impossible Mission for some not so 
light relief 

While | was becoming immersed in 
Basic and Logo, the two other groups 
were in session. The children’s section of 
the course was held in a next door room 
and | presume that it was sound-proofed 
in some way as hardly a murmur was 
heard from that vicinity all weekend. 
Most of the under 14s had a vast amount 
more experience of computers than their 
adult counterparts and were perfectly at 
home with the electronic beasties. They 
too could come and go as they pleased to 
a certain extent although supervision was 
such that parents had no worries about 
the welfare of their offspring. 

The advanced group, under the 
guidance of Eric Doyle, were learning 
more about machine code and having a 
look at some more complicated 
programs. Many of them bought their 
‘own programming problems with them 
and these were dealt with in due course so 
that they were able to go home at the end 
of the weekend with the necessary 
knowledge to continue their machine 
code masterpieces. 

Sunday was not a day of rest. It was 
dedicated to the teaching — in the 
beginners group — of the use of Easy 
Script, Commodore's word. processing 
package. This may sound a little odd, to 
devote a whole day to the use of a word 
processor, but | think there was a lot of 
sense behind this. Many of those present 
were looking into the possibility of buying 
a computer to help them with either their 
‘own small businesses or merely their 
domestic administration. Using a word 
processor shows you very quickly and 
simply what can be done with very little 


eS 


knowledge and illustrates the power of 
the many software utilities packages 
which are available at the moment for the 
64 and hopefully in the fairly near future 
for the C128 

By the time we finished for tea on 
Sunday evening | knew that | would be 
able to return to the office and impress 
everyone with my technical knowledge 
which had definitely increased one 
hundredfold since 1 left on Friday 
afternoon. 


To be honest, it is very difficult to find 
any specific criticisms about the weekend. 
Pethaps a little too much time was 
devoted to Logo but then | could have 
stopped doing that and gone on to an 
alternative occupation if | had been really 
bored. I would have liked to improve my 
handling of Basic a little more but it was 
only lack of time that prevented me from 
doing so. 

As a weekend with a difference, it’s 
very enjoyable. And as a course in 


computing it’s very instructive. If you 
have a couple of days to spare and you 
want to use them constructively, | 
thoroughly recommend a computer 
weekend. Mind you, I'd used my brain so 
much that | had a lot of difficulty getting 
back to the grind on Monday! 


Touch Line 


Ardmore Adventure holidays are run all 

year round at the Challenge Centre 

Llanfyllin, Powys, Mid Wales. Special 

weekend courses can also be arranged for 

groups from schools or businesses. 

Courses already arranged around the 

country in 1986 are as follows 

High Wycombe 4-6 April, 18-20 April, 
7-9 March, 21-23 March 

Coventry 16-18 May 

Portsmouth 23-25 May 

High Wycombe 30 May-1 June 

Cardiff 13-15 June 

High Wycombe 27-29 June 

Runcorn 12-14 September 

High Wycombe 3-5 October 


Prices 


Computing course £30 
Dinner, bed and breakfast £27.50 per night 
Up to three children can be 
accommodated free when accompanied 
by two adults. 


COMMODORE 64 


EVER HAD A LOADING PROBLEM? 


‘Then sendoff for WIZARD'S TAPE HEAD ALIGNMENTKIT -Noone shouldbe without 


tte containing sophisticated txt program 
Screwenver "9 


4) Atuming meter 
5) A detates ratruction booklet wih aiaorame 
8} ACoading Goctor onetp saghose any loading problems. Allo this for only £8 


COPY KING — PLUS 


or FAST LOADING programs 
"REE this month a suite of additional back up Foutines 
loaders adiod 
wna onank TAPES st stor than die) 
: Sons teen wocleage es | 
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BARGAIN JOYSTICKS!!! | 


Incredible value - Brand new Quickshot I! Joysticks at only £848 including PBP. 
Features include ~"Autotire “Thumb and tigger linger fire buttons. "Bult m suction 
‘Cups. "New improved design. “Fits any computer with Commodore/Atat! joystick 
ports, (Not the plus 4/16.) 


HALF PRICE SPECIAL THIS MONTH! 


SUPERFAST TURBO loading versions 

sehen you buy this excellant program 

‘Al prices INCLUDE £1.00 for administration and U.K. PAP. Europeans please ADD 
509. Ouisise Europe ADD £1.00, Overseas orders welcome. All payments must bein 
pounds storing, 


Cheques/POs to: 
WIZARD SOFTWARE (Dept. B. 
‘59, THE MARLES, EXMOUTH, DEVON EX8 4NE 


EXTENSION 64 


%* SUPERB INTERRUPT DRIVEN SPRITE CONTROL 
UP TO 64 SPRITES ON SCREEN SIMULTANEOUSLY 

% AUTOMATIC MAZE RUNNING FEATURE 

‘ AUTOMATIC ANIMATION 

AUTOMATIC JOYSTICK/KEYBOARD SPRITE CONTROL 

MODE SELECTION WITH A SINGLE COMMAND 

PRINT DIRECTED TO HIRES SCREEN IN BIT MAP MODES 
PLOT, DRAW, CIRCLE, BOX GRAPHICS COMMANDS 

EASILY IMPLEMENTED SPLIT SCREENS AND SCROLLING 
INTERRUPT DRIVEN SOUNDS, WITH QUEUEING 

RENUMBER, AUTO, DELETE, RESTORE LINE NUMBER etc. 
BLOCK SAVE/LOAD, DISK/TLOAD COMMANDS 

HEX & BINARY, BIT TEST/SET/RESET, DEEK/DOKE 
IMPROVED ERROR HANDLING, ON ERROR GOTO/GOSUB etc, 
% IF... THEN ... ELSE, WHILE ... WEND, REPEAT .... UNTIL 

% PROC, DEFPROC, ENDPROC FOR BETTER STRUCTURE 
EXTENSION 64 completely eliminates the need for all those unintellg: 
ble PEEKs and POKEs and provides easy control of ALL the C64's 
features. The carefully designed and very powerful new commands 
make extensive use of the C64's interrupts to do a lot of the work auto: 
matically, "behind the scenes”. For example, if you top up the sound 
queue youcan play a three-part tune in strict tempo while you listandedit 
your program. 

EXTENSION 64 is available on cassette, disk or cartridge complete with 
manual and six demonstration programs at the special introductory price 
of:— 
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Cassette £7.95, allinclusive 
Disk £9.40, allinclusive 
Cartridge. £14.95, allinclusive 


Send cheque or PO or phone Access/Visa details to 
KNIGHT SOFTWARE (Dept YC) 
24 Badger Lane, Ingleby Barwick, Stockton-on-Tees TS17 ORN 
Telephone (0642) 762540 


Save the Galaxy from the evil Alana 


SPECIAL FEATURES include: 

* 12 Arcade and Strategy games 
in One Program 
10,000 Metaspace locations 
Superb sound and 3D graphics 
A major battle of wits 


STARSHIP ANDROMEDA The final frontier in space exploration 


OUT NOW 


Available from all good software retailers — if it's not there, please order it —or in case of 
difficulty send your crossed cheque/P.0. made out to Ariolasoft U.K. Ltd, including your own name A i 
and address, to Ariolasoft U. #8 Long Acre, London WC2E SJH. aridia we 
5 ‘NDR ssette £9.95 


HIGH PERFORMANCE PROGRAMS. 


YET ANOTHER PRINCESS 1S IN NEED OF 
rescue. Using all your Kung Fu skills, you 
must battle your way through five floors 
of the wizard's temple in order to rescue 
her. As is only to be expected, the wizard 
has arranged a welcoming committee for 
you to try and ensure that you don’t 
succeed in your quest. 

Control of your character is simplicity 
itself. Leaving the joystick button alone, 
you can move left and right, jump and 
duck, Holding the fire button down puts 
you into an offensive mode and you can 
now aim kicks left and right as well as 
performing a jumping kick and a 
squatting kick. If you press the space bar 
this toggles the action between kicking 
and punching left and right, jumping and 
squatting punches. 

Timing is the essence of successful 
squat. Judging your punch or kick cor- 
rectly and your opponent will crumple 
instantly, to the accompanying sound of a 
very realistic "thwack”. But one of the 
nice things about this game is that you can 
get away with mistiming a few blows. If 
that happens, an opponent will attempt to 
grapple with you. You can break his 
prasp by waggling your joystick furiously, 


There is of course a price to be paid for 
your error of timing, This is in the form of 
loss of energy. In the top left hand corner 
of the screen are two bars representing 
energy levels for you and your adversary 
Should your energy drop to zero, you lose 
one of the three lives. 

Each level must be completed within a 
certain time limit, A clock starts off at two 
thousand and quickly counts down 
towards zero, Failure to reach the stairs at 
the end of the time limit again results in 
the loss of a life. If you do reach the stairs 
in time, you receive a bonus based on the 
amount of time youshad left and the 
amount of energy. Score 40,000 points 
and you gain an extralife. If you lose alite, 
you must start that particular level from 
scratch again but your clock and energy 
bar are restored to full values. 

Most of your opponents on the first 
evel are henchmen who can be easily 
despatched with a single kick or punch 
Occasionally, you will come across aman 
throwing knives at you. These you must 
duck under or jump over and then move 
in close to dispose of your enemy, who 
requires two blows to defeat him. At the 
end of each level is a guardian, He may be 
armed or simply vicious but one thing you 
can by re of is that he is tough to beat 
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and it requires several blows before you 
can get his energy level down to zero. If 
you have killed all the baddies on a 
particular level and then beaten the 
guardian, you can reach the stairs and so 
gain access to the next level. Starting a 
new level gives you a chance to get your 
breath back as well as resetting your clock 
and energy bar. 

Points are only awarded if you dispose 
of your opponent cleanly i.e. you don't 
have to wrestle to get him off. How much 
you score depends on how many blows it 
takes to kill them and what move you 
used, Punches and flying kicks score more 
than ordinary kicks, 

Your opponents on the second level 
are of a totally different nature. Falling 


balls and vases contain snakes and 
dragons and mystic globes explode 
around you. Falling objects can be 


destroyed with jumping kicks or you may 
prefer to run out of the way of the 
dragon’s fiery breath. Snakes can't be 
killed but must be jumped over. Dwarves 
also appear who, given the chance, liketo 
somersault on to your back and sap your 
energy 

The next levels introduce the only 
other kind of nasty to be met inthe game~ 
killer bees. These can be killed with a 
single kick or punch. The baddies start to 
appear in combinations now and you will 
need very fast reactions if you are to 
succeed. 

Kung-Fu. Master is an addictive, 
enjoyable game to play. A lot of thisis du 
to the fact that it’s easy to get into and | 
can see it as the sort of game people will 
load in for a quick half hour of mindless 
violence. The graphics are colourful 
although quite chunky. All this to the 
accompaniment of a relentless tune and 
good sound effects. 


Listings will be much easier to 
enter with our new system. 


COMMODORE LISTINGS ARE RATHER 
well known for the horrible little black 
blobs that always abound. Unfortunately 
the graphics characters which are used to 
represent graphic and control characters 
do not reproduce very well and they are 
also difficult to find on the Commodore 
keyboard. 

In future all control and graphics 
‘commands will be replaced by a mnemonic 
within square brackets. This mnemonic is 
not typed out as printed in the magazine 
but rather the corresponding key or keys 
on the keyboard are pressed. For example 
[RIGHT] means press the cursor right key, 
you do not type in [RIGHT]. All of the 
keywords, what keys to press and how 
they are shown on the screen are shown 
below 
Any character that is accessed by pressing 
shift and a letter will be printed as 
[Sletter] 

[SA] shift and A 
[S+]_ shift and + 

‘Any character that is accessed by 
pressing the Commodore key and a letter 
will be printed as [Cletter] 


LISTINGS 


If any characters are repeated the 
mnemonic will be followed by a number 
This number is how many times you 
should enter the character. Any number 
of spaces over one will also be 
represented in this form 

[RIGHT10] press cursor right 10 ti 


es 


Any other characters should be easily 
recognisable for example CTRL-N means 
press CTRL and N and LEFT-ARROW 
means press the left arrow. 

‘Any number of mnemonics can be 
enclosed in brackets for example 


[SA10,SPC10,5A10] 


[CA] Commodore and A [#10] press Commodore and + 10 
[C+] Commodore and + times means type 10 shift A’s 10 spaces and 
[C1] Commodore and 1 [SPC10] Press the space bar 10 times _ another 10 shift As. 
Mnemonic Symbol what to press| [Mnemonic Symbol what to press| [Mnemonic Symbol _ what to press 
IiRIGHT] a left/right |(F5] 1 f5| |[BLACK] 1 CTRL &1 
(Lert) I shift left/right} |[F6) HEHE shift & £5] | [WHITE] E TRL & 2 
r 

Shift & up| i: 
[UP] /down| |F7] ‘| | [RED] CTRL & 3 
[DOWN] Lid up/down] |[F8] LE shift & 7] |[CYAN] . CTRL & 4 
(ta) £1 |[CLEAR] /HOME| | [PURPLE] CTRL &5 
tF2] a. shift & f1) [HOME] 5 CLR/HOME| |[GREEN] CTRL & 6 
(F3] £3} |[RVSON] EE crt & 9} |[BLUE] CTRL &7| 
(4) shift & f3| |[RVSOFF] et CTRL & of |IYELLOW] CTRL&B 
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HELLO AGAIN, READY FOR YOUR NEXT 
dose of ecstasy? Well, last month’s 
homework was pretty simple, wasn't it? 

Question one really followed on from 
the simple example in the last part. It 
simply writes CAT in white letters in the 
top left hand corner of the screen. Itwon’t 
take much looking, however, for you to 
notice that it’s a rather poorly written 
routine. By the end of this month's 
episode you'll be able towrite itina much 
slicker way 

Listing 1 shows the routine again 
written using the format of the HYPA 
Basic assembler (see Your Commodore 
March issue), Lines 110 to 160 put the 
“POKE” values of C, A and T on to the 
screen. Lines 170 to 200 colour the letters 
white 
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Listing 3 


10 ASSEMBLE 100,1 
700 REM *=$C000 
710 REM LDY £2 
120 REM STY $0020 
130 REM INY 

140 REM STY $D020 
150 REM INY 

160 REM STY $D020 
170 REM RTS 

180 REM ] 


Listing 1 

10 ASSEMBLE 100,1 
100 REM *=$C000, 
110 REM LDA 3 

120 REM STA $0400 
130 REM LDA 1 

140 REM STA $0401 
150 REM LDA 20, 
160 REM STA $0402 
170 REM LDA 1 

180 REM STA $0800 
190 REM STA $D801 
200 REM STA $D802 
210 REM RTS 

220 REM J 


Question 2 actually asks you to write a 
routine. Listing 2 gives one solution. 
Location 1000 holds a value which is put 
into the screen colour. 

You call the routine with: 


POKE 1000,COLOUR: 
Listing 2 


10 ASSEMBLE 100,1 
700 REM *=$C000 
110 REM LDA 1000. 


120 REM STA $D021 
130 REM RTS 


140 REM | 


Lastly, question 3 asks you to play 
games with the border colour. Listing 3 
does this, The Y register holds the border 
colour and is incremented to change the 
border. 


Sys 49152 


ES 


If you try this routine, you will not 
notice any effect except for the border 
turning purple. This is simply due to the 
speed of the routine. If you repeatedly 
call the routine as with the Basic line: 


0 SYS 49152: GOTO 10 


You will see a purple border with inter- 
mittent lines. 

Again, this is a messy bit of program- 
ming. Let us consider a simple loop. In 
Basic, you loop by testing a variable and 
branching to a specified line. Machine 
code uses a similar approach. Consider 
Listing 4: 


Listing 4 


10 ASSEMBLE 100,17 

100 REM *=$C000 

110 REM LDY £2 

120 REM .LOOP;: STY $D021 
130 REM INY 

140 REM CPY £4 

150 REM BNE LOOP 

160 REM RTS 

170 REM | 


Line 110 sets the Y register to the initial 
value. Line 120 sets the border colour. 
Line 130 increments the Y register and line 
140 compares the Y register to four. If 
thevalue of the Y register is not equal to 
four then the code jumps to the label 
LOOP and continues execution. When 
the Y register contains four, the routine 
ends, This is a much better routine than 
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Listing 3. The instruction CPY £4 
assembles to two bytes. The first byte is 
the code for CPY (ComPare Y). The 
second byte holds the number of bytes 
through which the program counter must 
be adjusted to jump back to the label 
LOOP (offset). | don’t intend to go into 
how the offset is calculated since most 
assemblers and disassemblers deal with 
the problem for you. CPY can be used in 
three addressing modes: 


Absolute, for example CPY $100 

Immediate, for example CPY £2 

Zero Page, for example CPY $FF 
Naturally, there is an equivalnent 

command for the X register: 


CPX (ComPare X) 


You will still find that the routine is still 
pretty fast. As is the case with many 
applications, you may find it necessary to 
slow down machine code. A crude 
method is to use the NOP (No Operation) 
instruction. This instruction does 
absolutely nothing! Surprisingly enough, 
it has some uses: 

1) To deliberately introduce minute 
delays to fine tune timing 

2) To eliminate unnecessary code without 
reassembling your code. 

Perverts who write using an assembler, 
based in a machine code monitor will use 
NOPs often since it’s an easy way of 
leaving space for additions to code. Try 
stuffing a few NOPS in listing 4 between 
lines 120 and 130 and see what happens. 

Last month | described the simplest 
addressing modes. Whilst they are inval- 
able, their versatility is limited. The next 
mode uses simple indexing with the X or 
Y register. Depending on the memory 
locations position, this acts in either 
absolute or zero page modes. Here are 
some examples: 

Absolute Y indexing LDA $1000,Y 
Zero Page X indexing STA $OD,X 

This mode is quite simple to 
understand. The Y or X register acts as a 
counter specifying an offset from the 
specified address, The microprocessor 
adds the offset to the address and 
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performs the instruction on the resulting 
address. Consider the instruction: 

STA 1024,Y 

If the Y register contains 0, then the 
accumulator will be stored in location 
1024 (1024+0=1024). If the Y register 
contains 1, the accumulator will be stored 
in location 1025 and so on. It therefore 
follows that we have a simple way of 
performing actions on a row of locations 
of up to 255 characters length (Yand Xare 
8 bit registers - remember’). This can be 
used to rewrite program one of last 
month’s homework. Consider listing 5 


Listing 5 


10 ASSEMBLE 90,1 

90 REM *=$C000 

400 REM LDY £0 

110 REM .LOOP: LDA TABLE,Y 
120 REM STA $0400,Y 

130 REM LDA £1 

140 REM STA $D800,Y 

150 REM INY. 

160 REM CPY £3 

170 REM BNE LOOP 

180 REM RTS 

190 REM .TABLE: £8:3,1,20 


200 REM | 


Line 190 holds the “POKE” values of 
CAT asatable of three bytes. We enter the 
routine with Y containing zero. During 
the first pass, the accumulator is loaded 
with the first byte in the table (line 110) 
and this is put in the top left hand corner 
(line 120). The colour screen is set to white 
(lines 130 and 140). The ¥ register is incre- 
mented and loops back to process the 
second letter, if its value is not equal to 
three (line 160). 

This, |hope you'll agree, is neater than 
the original version. Whilst the size is not 
greatly reduced, once you start writing 
large routines you'll see the difference. 

Before | move on to the next form of 
addressing, how about a small diversion? 
It won't take a lot of thought to spot that 
Listing 5, or something similar, can be 
used to print blocks of text. There are two 
ways of printing text: 

a) Direct moving of text as in Listing 5, or 
b) Printing itin the same way as printing a 
string in BASIC. 

In the C64’s ROMs are two useful 
routines which can be readily used. First 
we have a routine starting at location 
$FFD2. This acts in the same way as PRINT 
CHR§(X). To use it you simply load the 
Accumulator with the character to be 
printed and call the routine. Rewriting 
Listing 5, we get: 


Listing 5 

10 ASSEMBLE 90,1 

90. REM *=$C000 

100 REM LDY £0 

110 REM .LOOP: LDA TABLE,Y 
120 REM JSR $FFD2 
130 REM INY 

140 REM CPY £3 

150 REM BNE LOOP 
160 REM RTS 

170 REM .TABLE:$CAT 
180 REM | 


This prints CAT at the current cursor 
position in the current cursor colour. The 
texts stored in line 170 as ASCII codes and 
we don’t need to worry about updating 
the colour matrix. The JSR (Jump 
SubRoutine) is the same as GOSUB in 
Basi 


fe can simplify matters further, by 
using a routine in the Basic ROM at 
$ABIE. This prints a whole sentence for 
you. Two requirements must be fulfilled: 
i) The sentence must end with azero byte. 
ii) Before calling the routine, you must 
load the Y register with the most signifi- 
cant byte of the start address of the 
sentence, and the Accumulator with the 
least significant byte. Do I hear grunts of 
confusion. OK, here's a quick tutorial 
Assume that the sentence starts at the 
address $C010. This is stored as two bytes, 
$C0 and $10. The high byte, $CO, is called 
the most significant byte and the low byte, 
$10, is the least significant byte. 

Here is our example again: 


Listing 6 

10 ASSEMBLE 90,1 

90 REM*=$C000 

100 REM LDA £< TABLE 
110 REM LDY £>TABLE 
120 REM JSR SABIE 

130 REM RTS 

140 REM .MESSAGI 
150 REM £8:0 


Lines 100 and 110 take care of loading 
the message start address. £< means the 
least significant byte and £> the most 
significant. byte. Line 150 holds the 
terminating zero byte. (try omitting it and 
see what happens!) 

We now have a very short, but rather 
slow, routine. It’s slow because it uses the 
rather lengthy print routine in ROM. If 
you want to write an adventure, use the 
approach used in Listing 6. If you want to. 
write a fast game with flicker free graphics 


WN 


changes, direct data movement will be 
necessary. 

The main drawback with simple 
indexing is that you specify the start 
address in the object code and this can 
only be changed by directly altering the 
object code when the code is running. In 
otherword, like rewriting a Basic program 
while it’s running. Whilst thisisa perfectly 
acceptable technique. I'm not that keen 
on it. A better approach is to use an alter- 
native indexed mode called Post-Indexed 
Indirect Addressing. This is rather a grand 
name for a fairly simple idea. In simple 
indexed addressing, you will recall that 
we specified the address concerned in the 
mnemonics. eg: 


LDA $1000 


In Post-Indexed Indirect Addressing, we 
store the address in a zero page location 
and specify that address in the 
mnemonics. Note that we use brackets to 
signify this mode: 


LDA ($FB),Y 


The action of this instruction is to add 
the offset kept in the Y register to the 
address stored in the byte pair $FB and 
load the accumulator with the contents of 
the resulting address. The address is 
stored with the low byte first as usual. 
Here is an example: 
The equivalent instructions for: 


LDA $C010,Y are: 
LDA £$10 
STA $FB 
LDA £$CO 
STA $FC 
LDA ($FB),Y 

IF contains five, the instruction adds 
five to the address in $FB, $FC giving 
$C015. The accumulator is then loaded 
with the contents of $C015. 

Consider: 


Listing 7 
10 ASSEMBLE 90,1 

90 REM *=$C000 

100 REM LDA £<TABLE 

110 REM STA $FB. 

120 REM LDA £ >TABLE 

130 REM STA $FC 

140 REM LDY £0 

150 REM .LOOP: LDA (SFB),Y 
160 REM JSR $FFD2 
170 REM INY 

180 REM CPY £3 

190 REM BNE LOOP 
200 REM RTS 

210 REM .TABLE: $CAT 
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sed. You should also notic 


‘Two problems for yor 


|ABSOLUTE,Y | ABSOLUTE, |ZERO PAGE,X| ZERO PAGE,Y| _(IND),Y 


LDA 
STA . . * . 
ity = = WELCOME TO THE 
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ot aor with Reading and Writing 


@ 01-405 4017 


Since 1975, 350,000 
O adults have been helped 
toread and write better. 
If you want help look for 
this sign. 
For further information 
Adult Literacy & Basic Skills Unit 


PO Box 213 London WCIV ZET 


THE FINAL CARTRIDGE 


THE FIRST OUTSIDE OPERATING 


UTILITY 


CARTRIDGE 
INCLUDING 
FREEZER 


OF THE YEAR 


SYSTEM FOR THE CBM 64 * 


This new operating system built in a cartridge 
does not use any memory and is always there. 
Compatible with 98% of all programs. 


DISK TURBO - 6 times faster loading 
& times faster saving, 


TAPE TURBO - 10 times faster, even 
with files - normal Commodore 
commands - compatible with standard 
turbo's. 


ADVANCED CENTRONICS INTER- 
FACE - compatible with all the well 
known centronics printers and Commo: 
dore printer programs. Prints all the 
Commodore graphics and control codes 
(important for listings). 


SCREEN DUMP FACILITIES - of low. 
res Hi-res and multicolour screens!! 
Prints full page with 12 shades of grey 
for multicolour pictures even from games 
and programs like Doodle, Koala pad, 
Printshop etc. Searches automaticly for 
the memory-address of the Picture. 
Special version available for the CBM 
801 and 803 printers. 


24K EXTRA RAM FOR BASIC- 
PROGRAMS AVAILABLE: Two new 
‘commands ,,Memory read”, Memory 
write”. They move 192 bytes with 
machinelanguage-speed anywhere in the 
64K Ram of the CBM 64. Can be used 
with strings and variables. 


BASIC 4.0 COMMANDS - like Dioad, 
Dsave, Dappend, Catalog, etc. 


BASIC TOOLKIT - with Auto, Renum 
(incl, Goto and Gosub), Find, Help, Old, 
ete. 


+ works with C128 in the 64 mode 


= 


‘Original multicolour full page sere 
dump print out, 


PREPROGRAMMED FUNCTION 
KEYS: - Run, Load, Save, Catalog, Disk 
commands, List (removes all list 
protections), 


KEYBOARD EXTRA‘S - Allows you to 
delete part of a line; stop and continues 
listings; move cursor to lower lefthand 
corner. Pokes and Syscalls in Hex. Typ: 
command operates your printer as a 


typewriter 
of 


COMPUTERS 


copyright and registered trademark H&P computers 


Wiolpraeresbocht 236 3083 MV" Rotterdam Netherlands. Tel; 01031 


COMFORTABLE EXTENDED ML. 
MONITOR: - with relocated load 
scrolling up and down. Bankswitching, 
etc. - does not reside in memory. 


RESET SWITCH: - resets to monitor. 
resets with old, resets to Hi-res printing: 
resets every protected program. 


ON/OFF SWITCH - we hope you never 
need that one. 


FREEZER: 


‘Stops and continues almost every 
program and allows you to make a total 
back up to disk or tape automatically, 


‘Specs: Creates one file on disk or tape 
Packs the program. 
Freezes 4 to 6 times faster than 
dedicated freezers, 

Menu driven: 

Freezer options include 

full page printing 

fore: and background colour changes 

reverse printing 

jumps to monitor or reset 


Training mode: 
kills sprite collision detection. 
14 Days money 
back guarantee 
if you are 
dissatisfied. 


12 Months repla 
cement guarantee. 


U.K. ORDERS Available by the wellknown 
Commodore Dealers or directly from. 

H & P Computers 

9 Hornbeamnwalk 

Witham Essex CM8 2 SZ England d. 
Telephone: 0376 - 51 14 71 


10231982 Telex 26401 &intx nt 
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‘Stuart Cooke risks life 
land limb reviewing 


[Mastertronic’s Ski 


Writer. 


Mastertronic is extremely well 
known for production of cut 
price software. Not a week 
goes by without a large number 


of Mastertronic’s releases 
being quite high in the 
software charts. Well, 


Mastertronic is about to do it 
again with a range of cut price 
application software. 

The first venture into this 
market is the launch of Ski 
Writer. This is a wordprocessor 
that has been available in the 
good old US of A for quite a 
while and has received a large 
amount of good publicity 
becaue of its ease of use. The 
price for this package over here 
is a meagre £14.99, 

So what does Ski Writer 
offer? Well it’s a full imple- 
mentation of a wordprocessor 
with enough features to suit 
most people. There are 
however a few items missing 
that would have made this 
package superb, but more of 
this later 


Documentation 


The manual for this package 
could almost be described as 
non-existent. It consists of 
three pages of very small 
printed instructions, the aim of 
which is simply to tell you how 
to load the package and what 
keys do what 


Mastertronic says the 
reason for the lack of 
documentation is that the 


package is so easy to use that a 
manual is not necessary. After 
using the package for some 
while I’m afraid that | must 
agree with them 


In Use 


Upon loading the program you 
are presented with the 
programs main menu. From 
here you can select Edit, this 
allows you to enter and alter 
text. Preview allows you to see 
how your text is going to look 
on printed paper before you 
attempt to print. Print will allow 
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you to check dot lines — more 
about that later — change the 
printer type, change paper 
type and print your document 
File gives you all of the file 
manipulation commands such 
as LOAD, SAVE and MERGE 
together with a few disk 
commands such as FORMAT. 
Facilities to use disk or tape for 
your documents is included. 
One of the main reasons for 
the ease of use of this program 
is the very comprehensive help 
function. Whenever you are in 
text mode help can be 
obtained on all of the following 
subjects: 
New Users 
Typing/editing 
Formatting 
Previewing 
Printing 
Cassette filing 
Disk filing 
All subjects are covered in 
quite close detail so if you have 
any confusion about a subject 
then one of the help files 
should make things clear. 


Dot lines 


Dot lines allows you to alter the 
layout of your finished 
document. A dot line is 
entered by placing a dot ‘” 
followed by a one letter 
commmand and a number. 
Obviously it is very difficult to 
remember single letter 
commands so if you select the 
Edit_ menu followed by the 
format menuall of the available 
commands will be displayed 
and you can select the one that 
you require using the cursor 
keys. One important thing 
worth noting is that all the 
available functions are listed at 
the bottom of the screen. For 


example, when editing text the 
bottom of the screen reads: 
F1 HELP, F3 Edit Menu, STOP 
Main Menu. 

Selecting one of these will 
move you on to another sub 
menu. For example pressing F3 
will display the following: 
Find, Replace, Format, Mark 
Copy and Cut 

‘As you can see everything is 
always easy to find and you 
don’t have to remember a lot of 
functions. Anyway, back to the 
dot commands. 

The dot commands 
available allow you to set up 
the following: 

The line spacing 

Left and right margins 

Top and bottom margins 

Start page number and page 
numbering at the top of a page 
Insert comments into your text 
Justify the text 

As you can see there are quitea 
number of formatting options 
open to you. There are 
however a few more com- 
mands. These are obtained by 
holding down combinations of 
keys and you can’t get them 
from any menu. This means 
that the ones you do not use 
often are likely to be forgotten. 
Don’t despair however as they 
are all documented in the help 
section. Some of the other 
commands available include 
underline and delete functions. 
Delete takes some time to get 
used to as it differs from the 
usual delete on the C64. The 
DEL key instead of deleting to 
the left of the cursor deletes 
the character under the cursor 
and moves the one to the right 
to that position. If you want to 
delete in the normal way, as 
you would when typing a line 
in Basic, you have to use the left 


arrow key. This leads to total 
confusion and you usually end 
up deleting the wrong piece of 
text. Why couldn't delete have 
been kept as it normally is? 


Omissions 
If you intend to use a 
Wordprocessor for serious 


work then there are a couple of 
serious omissions, one of these 
is a word count and another is 
the provision of headers and 
footers. If you are given the 
task of writing a certain 
number of words, as you would 
when writing a magazine 
article then you need a word 
count. If one isn’t present then 
you have to resort to counting 
them by hand, not a fun job 
Headers and footers are 
necessary on many documents 
for example you may need to 
put your name, the name of the 
document and the page 
number on top of each page on 
acollege report, with Ski Writer 
this cannot be done 


Verdict 


Despite asmall number of flaws 
you can’t really knock Ski 
Writer ata price of £14.99 itis an 1 
excellent buy. Not only is it JI 
adequate for most tasks tis also 
very easy to use, this is very 
important 

If you are looking for your 
first word processor or one that 
is easy to use you won't go 
wrong with Ski Writer. 


Touchline 


Ski Writer : 
Mastertronic : 
£14.99 


Q. What is Game Killer? 
A. Arevolutionary powerful cartridge that now lets you play all those 
impossible games without being killed! 
Walk fearlessly through gunfire, disaster and danger without a scratch. 
. Sounds difficult. 
It’s simple. Just plug it in the back of your computer and press a button. 
You mean | can play my games all the way to the end. 
| don’t believe it! 
. Yes — incredible but true! It works on all those thousands of games, with 
sprite collision. 
. Sounds like science fiction! | suppose it’s available in 2001 
. It’s here now! 
ll believe it when | see it! 
Exactly, so why don’t you go to your local 
computer shop. 


The Robtek Gomekiller is available from oll good 
computer dealers 

Enquiries to Rebtek (formerly known as Robcor) Ltd, 
36 Market Place, Falloden Way, London NWI 6JP. 
Telephone: 01-209 0118. 


Patent and copyright applied for 
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Novagen C64 £9.95 cass, £12.95 disk 


YOUR SPACECRAFT HAS BEEN 
forced to crash land on the 
planet Targ. Unfortunately you 
soon find out that the inhabi- 
tants of the planet, the Palyars 
and the Mechanoids, are at war 
with each other. You are on 
your own, apart from. your 
trusty computer, whatever you 
do from now on is your choice, 
though if you are lucky your 
computer may advise you. 

The main aim of the game is 
to get yourself enough money 
and experience to get another 
spaceship and off the planet 
Mind you if you were feeling 
up to it you could help one of, 
the waring factions out and 
earn some money as a 
mercenary. In fact when you 
start you are given the option 
of spending some of the money 
that you have in your posses- 
sion on a craft that belongs to a 
player, they even offer you the 


Time Tunnel 


opportunity of some work. Of 
course itis up to you if you buy 
the craft or not but it is a very 
long walk around the planet if 
you don't, 

Most of the action in this 
strange combination of 
adventure program and flight 
simulator, takes place over a 
very large 3D landscape 
Buildings, bridges and other 
craft are all extremely well 
defined using vector graphics 
as used on the arcade battle 
zone game. 

If you accept the Palyar’s 
offer of employment as a 
mercenary, you must find 
your way to their briefing 
room, you are given the 
location so you should not 
have too many problems 
getting there, Did | say no 
problem? It took me quite a 
few hours and many games to 
find the lift that would take me 


US Gold £9.95 Joystick required 


THE GNOME KING 1S LOOK- 
ing for a successor. In order to 


prove yourself worthy, you 
must travel through seven time 
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down into the Palyars complex 

The flight simulation 
element of the game comes 
into play once you are in the 
ship. The flight simulation is 
not exactly difficult, you only 
have a speed indicator 
altimeter and compass, but itis 
great fun especially if you fly 
close to the ground as you can 
see the 3D buildings getting 
larger as they come towards 
you. 

Not all of the action for this 
game takes place on the 
surface of the planet. Some- 
where in the city isa lift that will 
take you down into an under- 
ground complex. This section 
of the game offers nothing 
really thrilling. In fact itis really 
just an extension of the old 3D 
maze type games. Even 
careful exploration of this 
extension to the city is vital as 
you will find many useful items 
scattered around in the many 
underground rooms, including 
some cross hairs that can be 
added to your craft to help you 
shoot down enemy craft 

Not only will you come 
across objects that will help you 
but you'll also find a great 
number of puzzles. Locked 
doors stop you from getting 
around the complex too easily, 
you'll need to find a key to get 
through these. To make 
matters even worse there are 
rooms which will move you 
great distances around the 
complex; this really helps in 
getting you lost. 

As previously mentioned 


Grape 


you are the one that controls, 
the action. If you want to go 
around shooting things up 
then that’s up to you. However 
don’t be surprised if you find 
yourself been blown out of the 
air by enemy gun ships. 

Mercenary is certainly a 
strange game to play as there 
are no set rules. Some people 
may like this but if you are just 
after a good shoot ‘em up then 
you probably won't. It is 
possible to spend quite a lot of 
time feeling that you are 
getting nowhere, but explora- 
tiocn is important and it is 
worth mapping out as much of 
the city and the underground 
complex as possible, this will 
make it a lot easier to find your 
way around in a hurry, or even 
your way out of the complex 
and back to your ship. As 
mentioned, it’s very easy to get 
Jost and you can spend hours 
just going backwards and for 
wards in your search for the 
exit 

Mercenary is an extremely 
time consuming game and isn't 
one that you will load up fora 
quick five minutes. There is 
however a save game option so 
you don’t have to worry about 
getting killed. If you do get 
killed you will find yourself bya 
new ship anyway 

If you are looking for a 
challenge and something to 
keep you occupied for a 
number of hours then take a 
look at Mercenary, it's great 
fun. 

S.C, 
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zones, finding a page of manu: 
script. in each. If you can 
decipher the final message you 
will be able to set free many 
gnome spirits and be elected 
king 

Starting off in the gnome 
mansion, you soon discover 
how to select a time zone and 
operate the time machine that 
will transport you to the year of 
your choice. Amongst your 
options are the stone age 
ancient Green, the California 
gold rush and an intergalactic 
spaceship, 

You can only hold one 
object at a time but can accessa 
storeroom which will hold up 
to four items. Pressing the fire 
button performs various 


actions according to a list:of 
priorities. It may operate a 
mechanism e.g. open a door, 
drop something, pick up an 
object or fire a lightning bolt: 

You can always return from 
a time zone to the mansion but 
sometimes time holes appear 
that transport you to another 
year. This will generally be 
useful, though, and you will 
probably be able to find some- 
thing in the new zone to help 
you in the old one. 

Time Tunnel is an enjoyable 
arcade adventure. The graphics 
are pleasant and there are 
some jolly tunes and enough 
puzzles to keep you quiet fora 
reasonable length of time. 

G.RH. 


Captain Kidd 
Bug-Byte £2.95 


THIS IS A VERY SIMPLE AND 
quite addictive little arcade 


Ace 
Cascade £10.95 Plus/4 


THE PLUS/4 SUFFERS FROM A 
severe lack of commercial soft 
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game which bears a vague 
resemblance to Pac-man. 


ACE finds you in control of 


The Great Gonzo in Wordrider 
US Gold — Kids! £14.95 disk only 


THE FAMOUS MUPPET CHAR: 
acter, The Great Gonzo, is on a 


mission to save his friend 
Camilla the chicken from being 


vy 


You control a little charac- 
ter called Captain Kidd (in 
reality he’s just a head who 
rushes the board, 1 
don’t know what happened to 
his body!) This poor little dis- 
membered cranium dashes 
around defusing bombs to stop 
himself getting blown to 
kingdom come. 

There are of course adver 
saries to avoid and in this 
particular game they take the 
form of boots which are ready 
and willing to stomp on you at 
given moment. At. first 
they're not too difficult to 
avoid but as you reach the 
higher levels they multiply 
drastically as do the bombs 
There are also numerous 
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an Allied jet, your mission is to 
stop the advance of enemy 
units 

Ground forces consist of 
missile batteries and_ heli 
copters. These are graphically 
very good, all objects getting 
larger as you fly past them and 
the helicopters complete with 
moving rotors. 

In the air you will have to 
avoid the numerous enemy 
planes that always seem to 
come at you from behind 
thank goodness you've got a 
rear view camera. Once you've 
destroyed all of these then it's 
on to the ships. Your aim, sink 
the retreating force 

Obviously all this flying 
around and being shot at is 


squares on the board which are 
marked with a skull and 
crossbones and if you touch 
these then you dissolve instant- 
aneously 

All the screens are identical 
except that you get a different 
background colour each time 
and of course more skulls and 
more boots. There are also lots 
of little marker flags which can 
gain you extra points. 

Isa very simple and a very 
old idea. You've probably got a 
lot of games like it at home. 
Having said that, | don’t think 
you'll be wasting your money 
and you get a nice little 
rendering of The Entertainer in 
the background. 

MC. 
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going to leave your plane in 
Fare earotsNa protien 
here, simply call up the map. 
find your nearest base, and 
fend certhalribieay. W gourre 
really lucky then you'll find a 
refuelling plane in your area 
catch this up and you can even 

refuel in flight. 
this game has some very real. 
istic graphics. If you are daft 
enough to fly low you will see 
seein andieven the sees 
they whizz beneath your plane. 
ACE is a game that no Plus/4 
owner should be without, it 
will keep you occupied for 
che 
S.C. 
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the main ingredient in the 
Swedish chef's coq au vin. It’s 
probably an idea to include a 
warning with this adventure 
it’s a chock-a-block with the 
most appalling puns in true 
Muppet style 

It’s a joystick operated text 
adventure in which Gonzo is 
given a series of options in 
choosing a vehicle for the 
particular tefrain in which he 
finds himself. You-can have a 
rolling horn blower, a diving 
light maker or even a walking 
bumper. There are several 
options and you must make 
sure you pick the correct one 
for your present location. 

The locations have chicken 
flavoured names, for instance, 


the Egglantic Ocean, NewYork 
City and the Egg-yptian Desert 

You need to amass a mini- 
mum of 75 points to reach the 
castle where Camilla is being 
held captive. You score points 
for successfully negotiating 
hazards and for con 
quering the foes you meet on 
the way, like sharks, eagles and 
even wild goats. 

Some of the screens involve 

dodging flying birds and 
bouncing eggs while others are 
maze type settings. 
It’s very entertaining and the 
instruction booklet also 
contains a Muppet story 
Eggsactly what the doctor 
ordered! 


MC. 


EVERY SO OFTEN+A GAME 
appears thta first impressions 
would leave you to think that it 
was a load of rubbish, the only 
thing is that a few hours later 
you find yourself still playing it 
and going back to play it time 
and again. Desert Fox 
from US Gold is one of those 
games 

Desert Fox is a combination 
of both arcade and strategy 
games. You play the part of the 
Allied forces and must save all 
your depots before they are 
take over by Rommel’s army 


Lose one depot and the g: 


Upon loading you are 
presented with a map of the 
area in question, depending on 
the level of play a varying num 
ber of flags are present, these 
represent the bases that you 
must rescue from the clutches 
of the evil Rommel. A number 


Comic Bakery 
Imagine £.95 Joystick required 
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of icons ~ small pictures 
represent the options that are 
available to you. 

Selecting the Zoom icon 
allows you to find out infor. 
mation on a selected base, The 
information given is; the 
number of enemy tanks 
present, the number of your 
tanks present, how much fuel 
and supplies are there and 
perhaps the most important 
the number of hours before 
the depot is over run, The 
number of hours of freedom 
remaining for the selected site 
indicator at 
the bottom of the screen, this 
gives you an indication of just 
how long you have got to get 
there and rescue your troops. 

The Radio icon turns on 
your tank's radio, This can be 
directed you want 
pressing the fire button gives 
you a surprisingly easy 


is also shown ona 


Wisgcore-o 


Bakery you playing the 
part of a baker trying to bake 


understand radio message 
about what lies in this direc- 
tion 

The move icon will move 
your tank, known as Lone Wolf 
in the direction that the radio 
beacon is facing. Careful use of 
this icon together with the 
radio icon will allow you to 
travel around the map avoiding 
the enemy as much as possible. 

If you are unlucky enough 
to fall for one of the enemy's 
little traps then you will ente 
the arcade sequence of the 
ame. In all of the sequences 
the graphics and sound can 
only be described as adequate 
but fairly 
surprisingly quick 

Hf you meet up with a 
convoy you have to protect it 
from enemy planes that are 
trying to blow it up. Your job. 
shoot down the planes, avoid 
the allied ones or you will lose 
points. The cross hairs for your 
two sights automatically move 
to the 
simply move the joystick left or 
right to fire the gun 

Tiger finds you under attack 
from enemy tanks 
spot them on your radar and 
hear their missiles screaming 
towards you, With careful aim 
you can the enemy 
shells, if you shoot the tank 
then their shells disappear as 
well. Your canbe 
guided so even if the tank is 
moving you stand a good 
chance of blowing him 
pieces, not before he has had a 
good go at you, though. Each 
hit by the 


position of any planes. 


missiles 


Us 


and deliver as many loaves as 
possible between the hours of 
nine a.m. and five p.m. As the 
factory is automated, it ought 
to be but you. are 
hampere work. by 
some pesky 

There are three switches ¢ 


your conveyor belt which the 
raccoons delight in turning off 
Fortunately, you have 
gun with which you can put 
themto sleep for afew seconds 
and kick them out of the way. If 
you touch them when they arc 
not stunned. 
three 


you lose one of 
lives. Another 
raccoon runs above the 
conveyor belt, stealing loaves 
He can be stunned by leaping 
up and firing 


your 


some damage to your tank, this 
can be repaired at one of the 
depots. 

In minefield you suddenly 
find your tank completely 
surrounded by mines, Your aim 
is to get out of there alive. You 
can shoot mines that are in 
front of you so this helps to 
clear a path. If you do hit amine 
then you 
damaged and 
stuck in the 
valuable time 

Ambush is reminiscent of 
the section in the Star Wars 
arcade game, the bit where you 
are flying down canyon being 
shot at from the Here 
your tank is going through a 
canyon, the enemy has gun 
emplacement on both cliff 
faces, You must destroy them 
before they pass your tank, if 
you don’t then you will suffer 
damage 

In Stuka Lone Wolf is being 
attacked by enemy fighters 
This section of the game is very 
similar to. the Tiger tank 
section, shoot the enemy with 
your guided missiles before 
they hit you. 

Desert Fox offers enough 
variation throughout its play to 
keep you interested for a long 
The different levels offer 
varying degree 
competition that you start t¢ 
take the attitude that as soon as, 
one level is finished you must 
have a crack at the next one. If 
you're after a good shoot them 
up then have a go at Desert Fox 

S.C. 
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A radar at the top of the 
screen keeps you informed of 
what's going on. You must also 
keep your eye on the number 
of shots you have left although 
you do regain them in time 
Points are scored for stunning 
and kicking raccoons and 
switching the machines back 

nN. At the end of the day, you 
get a bonus for each loaf baked 
and progress to the next level 
although there is no increase in 
difficulty 

The graphics are bright and 
colourful and. the 
sound effects are excellent but 
the game is far too easy to play 
and lacks any lasting appeal. 

GR. 
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Martech £7.! 


THE PLANET ZOIDSTAR LIES 
millions of light years from 
earth. Here the Zoidarians 
their war 
and the 


manufactured 
machines the Zoids, 
story goes on. 


Now there are two types of 
Zoids, red ones and blue ones. 
You play the part of Earthman, 
a man from no guesses where. 
who is going to merge minds 
with the blue zoids ultimate 
weapon, Zoidzilla, and take on 
the evil red zoids from within 
their own complex. 

However, as you descend 
into the heart of their city your 
craft is blown up and you see 
Zoidzilla disperse across the 
landscape. 

Red Patrols find these 
pieces of Zoidzilla and carry 
them off to eight of their city 
domes. Your task now is to find 
the eight pieces and then 
destroy the red army 


Ark Pandora 
Alligata £9.95 
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ARCADE ADVENTURES ARE A 
type of game that are 


Of course, as with all good 
stories, you manage to escape 
from your ships destruction 
with a very useful piece of 
equipment. Tank Zoid (what 
really exciting names!), you 
merge minds with it and you 
become as one. 

All of the action in Zoids 
takes place within the area 
surrounding the Red Zoids’ 
cities, Your position within this 
city is depicted upon a small 
map of the area around your 
tank, in the middle of your 
screen. You don't see anything 
as it really is as you are seeing 
everything through the eyes of 
Tank Zoid. If you ask me this isa 
very good excuse for making 
what could have been very 
interesting graphics appear on 
the screen as simple blocks of 
colour. Yes, you guessed it, 
you're blue and the enemy's 
red 


~ gee6eo 


becoming extremely common 
at the moment 


Around the map you will 
find a number of icons. These 
show all of the equipment 
available to you and its status. 
‘Above the map is your pulse, 
below is that of the zoid 
Careful monitoring of these 
will show you what state both 
are in 

Next you have the Mode or 
Weapon icons. The Railgun 
propels electromagnetic pulses 
at your enemy. You can fire 
normal missiles and attempt to 
jam the enemy’s signals 

Lastly you have information 
about your zoid, damage 
reports and that sort of thing. 

Moving your pointer over 

the map allows you to specify a 
direction in which you want 
your Tank Zoid to move. It will 
continue moving in the speci 
fied direction until it can go no 
further. This allows you to 
watch the map for lurking Red 
Zoids as they are bound to take 
a few pot shots at you as you 
drive past. 
Combat in Zoids is a little 
strange and not that exciting. If 
you are using the railgun you 
are presented with a diamond 
shaped sight, you have to 
centre the enemy, represented 
by another diamond, in your 
sights and fire. This may sound 
graphically boring but to be fair 
it isn’t. Martech has done a 
good job of making all the 
graphics look pretty even if 
they are a little basic. 

Firing missiles is a lot more 
complicated. You are 
presented with two map grids 


As with any normal 
adventure the game must have 
an aim. In Ark Pandora you 
must retrieve the sacred scroll 
which is hidden on the island. 
While travelling in your search 
for this mysterious scroll you 
will meet both friends and 
enemies. Friends can be 
persuaded to help you in your 
task while the enemy will do 
his best to kill you off, 

Nothing unusual here 1 
hhere you say, well no there isn’t 
The main difference between 
this and many other arcade 
adventures is its presentation 
Firstly all of the graphics are 
extremely colourful and very 
well animated, the running and 
jumping action of characters 


‘One showing your enemy from 
above the other from the side. 
You have to select how much 
fuel to put in your missile, fire it 
and then guide it to your 
target. You control the missile 
on one map at atime, press the 
button to move between the 
maps. Action here is a little fast 
and | found it took quite a 
while before | was used 
enough to the controls to hit 
anything. Again nothing 
stunning but good enough. 

An exciting musical piece 
by Rob Hubbard helps to set 
the scene for the game. 
Though | get the feeling thathe 
sets it too well and the game 
doesn’t quite live up toit. To be 
fair though, even though Zoids 
is probably not the most 
visually stunning game around 
there is a lot to it and it will 
probably take a long time to 
master 

The action is fast and 
furious, get three or four Red 
Zoids on your tail and the only 
option open to you isto run. Of. 
course you don’t have to but | 
bet you'll end up starting the 
game from the beginning 
again, 

Zoids is very different to any 
other game and must be played 
for quite a while before you get 
the hang of it and really start to 
enjoy it. If you can't be 
bothered to spend along time 
‘on a game then Zoids probably 
isn’t for you. If, on the other 
hand, you enjoy a challenge 
then the Red Zoids are waiting 

S.C. 


being one example. Secondly, 
most of the action is icon 
controlled. Pointing to the 
icons allows you to use objects 
pick them up and put them 
down, select which way you 
wish to go once you reach the 
edge of the screen and that sort 
of thing. 

When you get fed up with 
the game, which will take a 
long time as some of the 
puzzles are extremely 
complex, you don’t have to put 
this game in the box with all 
your other ‘dead’ programs. 
Simply break out the screen 
designer that comes with the 
packages and create your own 
new screens 


S.C. 


FA Cup Football 
in Games £7.95 


SELECTION OF TEAM FORMATIONS 
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IT’S QUITE SURPRISING THAT 
nobody's ever done an official 
FA Cup program, however 
Virgin has now rectified that 
situation with this new text 
only game. 

As a football manager, you 
are in charge of 10 teams (it’s 
hard work these days in the 
soccer business). The aim of the 
game is, of course, to get one of 
your teams to the final at 
Wembley and then thrash the 
opposition. 

One of the game's strongest 
points, in my opinion, is that it 
can be played by up to eight 
people at once. I've never had 
a game against the computer 
alone but | think that would 
become a little tedious. When 
there are several people 
competing it’s pretty exciting 
and you can become very 


Elektraglide 
English Software C64/128 £8.95 


involved in teams 
performance. 

You start by choosing your 
10 sides from a choice of 124 
possible teams. Any ones left 
over are managed by the 
computer. It’s quite a good 
idea to pick a few non-league 
teams since they can surprise 
you with occasional flashes of 
brilliance although I've never 
succeeded in taking one past 
the fourth round. The league 
clubs have all been given areal 
home and away rating based on 
their performance in the FA 
Cup over the last few years and 
also on their current league 
form. From the little | know 
about soccer it seems to be 
fairly accurate, although there 
is always room for surprises 
Non-league clubs have a rating 
based on FA Cup history and 


your 


recent results and attendances. 

‘Once you've chosen your 
sides then you watch the draw 
Two little tokens roll on to the 
top of the screen and the 
names of the sides drawn 
against each other appear at 
the bottom and scroll upwards. 
In case you haven't kept a 
record of your teams, don’t 
worry because each manager's 
initials appear next to the 
names of his sides. 

Once you've found 
who you're playing, a screen 
appears on which you must 
indicate your team’s tactics. 
These can be defensive 
balanced or attacking. You 
are given this option for all 
your teams and in the first two 
rounds, where only non- 
league and third and fourth 
division clubs play, this is the 
only opportunity you have to 
guide your teams’ progress ina 
particular match. Later when 
the big boys join in, you are 
given more opportunities to 
decide tactics, and these 
increase as you get nearer the 
final. Eventually you reach the 
stage where you can advise 
your team four times during a 
match and you are even given 
the option of bringing on the 
sub 

There are also news flashes 
about various events which can 
affect your teams’ morale. Your 
star player is having dodgy 
dealings with aticket tout. Your 
goalie went out on the razz the 
night before the match and has 


out 


a dreadful hangover. However, 
good things happen too - | was 
several times voted manager of 
the month! Although, once 
you've played the game a few 
times, you'll probably find that 
you’ve read all the news 
flashed and you'll begin to give 
them a miss 

There is a state of play 
screen which shows how all the 
teams are doing in their current 
matches. Ninety minutes is 
clocked up in an equivalent 
number of seconds and you 
can speed this up if you like. It’s 
amazing how many goals seem 
to be scored in the final minute 
of the game. I was leading 
Chelsea to a cup final win 
against Manchester United and 
was two nil up. In the final 
minute my worthy opponents 
managed to score a staggering 
three goals! This circumstance 
detracts a little from the 
authenticity but certainly adds 
to the excitement. You can 
never be sure of awin until the 
final whistle blows. 

When you reach the final 
you are forced to make quite a 
few skillful decisions. Whether 
to agree to transfers for your 
best players, how to prepare 
them for the match etc. These 
all affect the team’s perfor- 
mance so choose your answers 
carefully 

‘One last point - you don’t 
need to be an avid football fan 
to enjoy this game. I'm not. Get 
a few friends together and go 
out and buy it. 
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pleted within the allotted time, 
any time remaining is added on 
to the next, more difficult run. 

Although the cassette insert 
goes to great lengths to 
disassociate itself from similar 
3D simulations, a short period 
of deep thought will convince 
you otherwise. Imagine the 
obstacles are cars, they appear 
at random looming up fromthe 
horizon. Might just as well be a 
sphere or a box. Sorry about 


The game has you behind 
the wheel of a speedy racer 
which you must steer around 
the winding roads of Britain, 
America or Australia avoiding 
obstacles which appear in your 
path, Intelligent spheres 
boxes, oil patches and electro- 
static columns dropped from 
overhead rockets. No 
problems about burning the 
rubber off your wheels or 
running out of road. Any over- 
steering is penalised by a drop the dogmatic approach but this 
in speed and your race istoget is not really different to 
from A to B before your time anything already on the 
runs out. market. Iti fast, and franticfun 

Every time an obstruction is and recommended for those 
hicthe carthumpsto standstill who are tired of staring up hi- 
causing precious seconds to 
tick by. If the course is com 


ves exhaust pipes 


THIS GAME BENDS OVER 
backwards to pretend that it is 


not a racing game like Pitstop 
or Pole Position. 
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THE NEW 64 MULTIMODEM 


GIVES YOU DATABASES, BULLETIN 
BOARDS, ELECTRONIC MAIL, 
PRESTEL — ALL ON YOUR 
COMMODORE 64 OR 128 


At last! The perfect modem for your 
Commodore’ 64 or 128, giving you 
access to Prestel*, Micronet”, viewdata 
and a host of other services — plus 
user-user communications. 
It couldn't be simpler. The 64 
Multimodem has autodial and 
‘autoanswer, with all comms 
software on-board in ROM. 64 Multimodem fits 
your Commodore's cartridge port, and has just 
one external connection — the telephone 
lead. 
The 64 Multimodem is menu driven and 
multispeed, with CCITT V21/23 and Bell 
103 standards, handling baud rates of 
300/300, 1200/75 and 75/1200. 
Functions include save and 
O print frame and automailbox 
with edit and save. 
64 Multimodem now and 
you free introductory 
jons to Micronet and 
Microlink *: an unbeatable package 
atan unbeatable price — it’s pure 
genius! 


Approval applied for rade marks o tne companies concerned 


From the Communications 
pis, Powerhouse 
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946240 CWEASY G 19002985 PRESTEL MAILBOX 919992265 


extra work highlighted. Therefore it 
seems a good time to look at some of the 
software available and to discuss their 
various attributes. Several of the leading 
publishing/software houses have 
produced revision packs which are all 
very individual so | shall deal with each 
firm in turn by looking at what they are 
offering and how it is presented 


Commodore Software 


Commodore has a range of revision 
software which includes: English 
language (the only one I've seen); Geo- 
graphy - dealing with relief, climate, 
farming, industry etc; ‘O’ level French ~ 
general practice of tenses, verbs, 
pronouns etc; Computer Studies - logic, 
Operational procedures, programming, 
data storage; Physics; Chemistry - basic 
techniques, reactions, periodic tables; 
Biology; Maths. 

The maths package consists of two 
separate units, Maths 1 covers arithmetic, 
algebra, geometry, trigonometry, and 
problems. Maths 2 covers arithmetic, 
equations, progressions, functions, 
calculus and trigonometry. In both 
programs three types of question are 
used. These are true or false questions, 
multiple choice, in which there are up to 
four choices and a series of questions in 
which the answer must be typed in. A 
booklet. accompanying the programs 
doubles as running instructions and 
revision notes. 

All these retail at £9.99, 


Penguin Study Software 


Penguin has a long association with 
English literature study guides and these 
programs are a natural progression. They 
are purely revision aids and should be 
used in conjunction with the students 
own notes and a copy of the play being 
revised. The program takes the form of a 
database with excellent cross reference 
capabilities. If an essay is required on a 
given subject or image the program will 
search out all the references on that sub- 
ject and list them, thus saving the user 
Countless hours thumbing through the 
text. Titles in the range include Romeo 
and Juliet, The Merchant of Venice, 
Twelfth Night, Julius Caesar and Henry lV. 


Longman’s Exam Revision 
Software 


Longmans is another publisher which has 
used its expertise in writing textbooks to 
good effect in the field of computer soft- 
ware. Each package contains a cassette 
and a 12 page booklet and revision 
planner. 

Titles available are: French - a 2000 
word vocabulary list, revision on regular 
and irregular verbs, comprehension 
practice and a section all about France, its 
regions and specialities; Biology ~ class- 
ification of animal and plant kingdoms, 
genetics and inheritance, food composi- 
tion and a test of terms referring to the 
body; Computer Studies - how logic 
circuits work, file handling and useful 


Basic routines, Visicode low level 
languages; Mathematics - transforma- 
tions, statistics, probability and odds, 
trigonometry; Physics - key formulae, 
light, machines and pulleys, circuits and 
Ohm's Law; Chemistry - the elements, 
molecular weight, preparation in the lab, 
Reactivity. All these packages cost £7.95. 


Collins Gem Revi: 


These are packages costing £8.95 each 
which extend the Gem Basic Facts books 
with the addition of a cassette. Each 
cassette contains four different programs. 
The first is a random tester which helps 
determine any problem areas. The next 
two sections deal with helping the student 
to learn through a diagram with ordinary 
questions or multiple choice. The final 
section tests the student by means of a 
game against the computer. Four titlesare 
available - Biology, Chemistry, Physics 
and Computer Studies, 


Pan Course Tutors 


At first glance the asking price of £14.95 a 
package seems a lot but on closer examin- 
ation they represent a bargain not to be 
missed. They are the product of an amal- 
gamation between book publishers, 
Heinemann and Pan, and software house 
Hill MacGibbon. A’ meaty combination 
especially when you add Collinsoft. 

Each package consists of two cassettes, 
a student guide and a copy of the approp- 
riate Pan Study Aid. These books have 
been around for many years and cover all 
essential parts of the syllabus. They 
explain how to tackle exam questions by 
giving examples and indicating which 
areas carry more marks. The books are 
very detailed and are labelled ‘The 
complete guide to exam success’. 

As if to contradict this the cassettes in 
this package are used in conjunction with 
the book. Cassette 1 has a series of 
diagnostic tests. From these you can assess 
your performance in one of three ways: A 
full analysis of your answers; a time 
analysis; a written report showing any 
weak areas and suggestions for further 
work. 

Side two of tape one and both sides of 
tape two are detailed teaching programs 
designed to help the student as much as 
possible. Subjects covered are French, 
Maths, Physics, Chemistry and Biology. 

By the time this article reaches you the 
long running teacher’s pay dispute will 
hopefully be resolved. Should it not beso 
then the revision packages will hold even 
more importance. If it is sorted out, they 
are still a valuable resource and may make 
the difference between a pass or a Grade 
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Yes Its true !!! 


For a limited period we are giving away a £5.00 
Travel Chek for spending money on your next 


MONITORS. 


re cO. wee, 14500 holiday with EVERY £50 SPENT. 
Pass aso Thats not all folks II! 

Green/Amber your vouchers could also win you a FREE stay 
Pils Cab ss] "HOLIDAY for two or four people in our lucky 


128 Cable 40/60 6 
180 Colm, numbers draw. 


ONE ENTRY FOR EVERY £5 VOUCHER 


SOFTWARE 
‘Superscrint 64 - Disk 
ci 


‘Superscript 128 - Disk Feat computer 
Superere 128 Dik 
‘Superbase + Superscript 128 - Disk £445.09 
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48 Junction Road, Archway, London N19 5RD 
(01-263-9493/5 

238 Muswell Hill Broadway, London N10 3SH 
01-883-3705, 


38.00 49T Diskottes 
DS DD 407 Diskette 
$$ 00 oT 

1S DD BOT Disketos 


PAPER 
11+ 9.5 (2000 sheets 
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35 = 17/16 (1000) 


F TRAVELLERS CHEKS PRINTED ON EACH VOUCHER 


~ CONDITIONS OF REDEMPTION OF 


“INSTANT CREDIT” “INSTANT CREDIT” 
Terms 
All products are guaranteed for one year unless otherwise stated. Payment may be made by Access, Barclaycard, Bankers draft, Building Society cheque, 


‘cash or postal order, Sorry, cheques need five days for clearance. Wereserve the right to change prices without prior notice. All prices are inclusive of VAT. 
Ploase check before ordering for carriage charges. 


IT'S THREE O'CLOCK IN THE MORNING. 
You sit at the computer keyboard having 
just finished a marathon typing session 
entering one of the superb programs 
from Your Commodore. Your fingers 
reach for the keyboard and press the 


letters R, U and N/. You sit back 
expectantly and. ..nothing happens. 

Well, I'm sure that we have all had 
problem before now. When it does 
happen it's a matter of spending hours 
searching through the program for any 
typing mistakes. No matter how long you 
look or how many people help you, you 
can usually guarantee that at least one 
little bug slips through unnoticed. 

Here, at Your Commodore, we pride 
ourselves on the quality of listing that we 
print. Unfortunately, this usually means 
that they are also very long, thus taking 
longer to type in and leaving more room 
for errors, All of the listings in Your 
Commodore are taken straight from a 
printout of working programs, it is 
therefore very unusual for errors to 
appear in the magazine. 

Because of the length of our programs 
we do get a large number of requests from 
readers who would like us to put specific 
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programs on tape or disk for them. 
Obviously thisis very time consuming and 
means that we can’t spend as much time 
working on the magazine as we would 
like. 

We are therefore proud to announce 
the start of the ‘Your Commodore Soft- 
ware Service’. Most of the programs from 
each issue of the magazine will now be 
available on a single cassette for a price of 
just £4.00. We will not be making disks 
available since they would have to be alot 
more expensive and more difficult to 
post. This shouldn't cause you any 


problems though as none of the programs 
will be protected and it will be a simple 
matter to save the programs to disk 
yourselves. 

All programs on the cassette will be 
saved using a tape turbo routine. 
However, we cannot guarantee that all 
programs will work correctly with this 
turbo routine present. We therefore: 
recommend that before you use any of 
the programs you make a copy of the 
programs on your own cassette or disk 
and use this version of the program not 
the original. 
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“ASSETTE [] CrOa DISK [1] Ce16 
LUS/4 (SPECIAL 64K PLUS/4 VERSION) 


ACE - EXPERIENCE IT NOW! mn 


Allen Webb puts 3D 


graphics in focus. 


UP TO NOW, I'VE TRIED TO 
give routines which will be of 
Use to the widest possible 
range of readers. | now plan to 
give a few which will be of use 
mainly to game writers. The 
idea is to try to remove the 
problem of graphics from the 
user leaving him time to 
concentrate on the logic 
behind the game. 

Vve always been keen on 3D 
games so it’s with this area that | 
Wish to start. The use of 3D 
effects to depict movement 
down corridors or mazes is 
frequently used in arcade 
adventure type games. If 
you've seen Ariolasoft’s 
Scarabaeus or Supersoft’s 
Super Glooper, you'll know 
what | mean. 

The idea behind the routine 
is that you define the maze as a 
two dimensional array in RAM. 
You call the routine specifying 
the co-ordinates of your 
position and the direction 
you're looking and the routine 
shows the view through the 
maze. 

The maze is considered as 
an array of square cells. Each 
cell can have exits in any one of 
the four cardinal directions. If 
we assign abit to each direction 
such that north uses bit zero, 
each uses bit one etc. we can 
calculate a number between 
zero and 15 which defines the 
cell, These are summarised in 
Table 1 


Table 1 

Exits Cell Value 
None 0 
N 1 
E 2 
N&E 3 
s 4 
N&S i 
E&S 6 
N&E&S rd 
w 8 
N&WwW 2 
E&W 10 
N&E&W n 
S&W 2 
N&S&W 3 
E&S&W 4 
all 15 


Figure 1 shows the maze 
used in. the demonstration 
listing. The only restriction is 
that all passages are limited to 
one cell wide 
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SAMPLE MAZE 


PROBRI ‘3D LOADER 


1 REMEEESEEEAAESEAAesesAeAES 


2 REE 3D MACHINE CODE LOADE 
Rt 

BQ RENEAAESEEAAaEtSAaeEEES 
at 


0128 

TO 15:READ A 

+AsPOKE 384084111640 

NEXT 

2018 READ A:IF ACDCX THEN PRI 
WTERROR IN LINE"; 
‘2048+ (L418) :STOP 

2028 NEXT L:END 

2048 DATA 76,199,151 ,76,122, 
151 , 7, 11,155,169 8,133, 
251,169,280 133 ,2872 

2058 DATA 252,169,8,141 ,222,3 
141,223,3,173,224,3,141, 
114,155,2,1996 

2068 DATA 155,151,238,223,3, 
173,223,3,281 ,28,248,28,24 

65 ,251,,185,2195 

DATA 40,133,251,144,2, 

230,252,238 ,222,3,32,112, 

158, 76,31 158, 2866 


2088 DATA 96,173,216,3,133, 
167,173,217,3,133, 168,172, 
215,3,248,17,2129 
90 DATA 24, 165, 167,109,212, 
3,133,167, 165,168, 185,0, 
133, 168 136,208, 2863 
2108 DATA 239,26, 165,167,189, 
2143, 133,167,165, 168,185, 
6,133, 168, 96,2856 

2118 DATA 173,222,3,201 7,144, 
6,173,225), 76,128, 158,173, 
224,3)1911 

2120 DATA 141,114 ,155,96,162, 
3,168, 14,26,.32,248 255,173, 
224,3,141 ,1937 

2138 DATA 134,2,169,286,32, 
210,255, 162,4,160,14,24,32, 
240,255,173, 2072 

2140 DATA 225,3,141,194,2,169, 
67 ,160,158,32,38,171,96, 
162,2,160,1712 
2158 DATA 18,24,32,248,255, 
173,224,,3,141,134,2,169, 
207 ,32,210,255,2111 

2160 DATA 169,207,32,218,255, 
162,3,168,18,24,32,248,255, 
173,225 ,3,2168 

2170 DATA 141,134,2,169,84, 


160,158,32,38,171,96,162,1 
160,5,24 1529 

2188 DATA 32,248,255, 173,224, 
3,141 13424169 287,22, 210, 
255 ,169,,287 2453 

2198 DATA 32,218,255,169,287, 
32,210,255, 162,2,160,5,24, 
32,248,255 ,2258 

2200 DATA 173,225,141 134,2 
169,147,168 158,32,38,171, 
96, 162,3,1886 

22108 DATA 168,19,24,32,248, 
255,173,224,3,141 14,2, 
169,,286,32,218 2024 

2220 DATA 255,162,4,168,19,24 
32,248,255 ,173,225,3,141, 
134,2,169, 1998 

2230 DATA 11,168,159,32,38, 
171,96, 162,2,168,22,24,32, 
248,255, 173,1729 

2240 DATA 224 3,141 134,2,169, 
207 32,210 255,169,287 32, 
210,255 ,162,2412 

2250 DATA 3,168,22,76,201 150, 
162,1,168,26,24,32, 248,255 
173,224 1989 

2268 DATA 3,141 134,2,169,287 
32,210,255, 169,287,32,218, 


The graphics use multi- 
colour redefined characters. So 
that you have the maximum 
amount of RAM, a_ setup 
routine is used to shift the 
screen and characters to the 
area between the ROMs. The 
screen’s new position is from 
51200 to 52199. The views use 
the characters from Shifted A 


to Shifted S leaving you with a 
reasonable number for the 
creation of objects or monsters 
to put in the maze. You can 
specify the colour scheme by 
poking the following location: 
Location 994 - Wall colour 1 
Location 995 - Wall colour 2 
Location 993 - Ceiling colour 
Location 992 - Floor colour 


Location 996 - Background 
Location 997 - Border 

The floor and ceiling 
colours force the multicolour 
mode and must therefore be in 
the range eight to 15 giving 
only eight colours. 

If you wish to use sprites, 
the sprite pointers are now 
located from 52216 to 52223. 


Useable sprites are numbers 48 
to 64 and 128 to 254 and are 
located according to the 
equation: 
Start Address = 52224+(Sprite 
Number-48)*64 

The screen and character 
set limit the area available for 
sprites but there is plenty of 
room behind the kernal ROM 


255,169,287 ,2482 

2278 DATA 32,218,255, 162,2, 
160,26, 74,252,158, 173,22, 

28,916,141 1894 

DATA 22,208 173,226,3, 
141,34,208,173,227,3,141, 
35,288 173,228 2283, 

2298 DATA 3,141 ,33,208,173, 
229 ,3,141 ,32,208,96,174, 
222,3,189,115,1978 

2908 DATA 155,133,253, 189,135, 
155,133,254, 168,0,24, 165, 
252,105 ,16 133,262 

2910 DATA 171 ,165,251,133,178 
177 253,56 233,128 145,251 
173,114,155, 145,2728 

2328 DATA 178,208, 192,34,288, 
239,96 32,14,152,165,28, 
141,216 ,3,165,2047 

2938 DATA 21,141,217,3,32,14, 
152, 165,28, 141 ,212,3,32,14, 
152,165, 

2340 DATA 20,141,238,3,32,14, 
152,165,20,141 ,231 332,14 
152,165, 1515 

2350 DATA 20,201 ,2,208,3,76, 
24,152,281 ,4,208,3, 76,184, 
152,201 ,1715 

2368 DATA 3,288,3,76,88, 153, 
2811 ,208,3, 76,248, 153,96, 
32,253, 1882 

2378 DATA 174,32,138,173,32, 
247 ,183,96,32,9,158,173, 
238,3,141 ,214 2827 

7388 DATA 3,173,231,3,141,215, 
3,32,65 150,165, 167,141 ,82. 
3,165,1739 

2390 DATA 168,141 ,83,3,168,8, 
177,167 41 ,2,288,3,76,58, 
155,238, 1688 

2480 DATA 214,3,32,65,150, 168 


0,177,167, 141 ,232,3,41 1, 
240,3,1629 

2416 DATA 32,219, 158,173,232, 
3,41,4,240,3,32,86, 151173, 
232,3,1774 

2420 DATA 41,2,208,3,76,152, 
154,.298,214,3,32,65,158, 
160,8,177,1675 

2430 DATA 167,141 ,232,3,41,1, 
248,3,32,173,150,173,232,3, 
41 4, 1636 

2440 DATA 240,3,32,55,151 ,173, 
232,3,41,,2,208,3,76,211, 
154,238, 1822 

2450 DATA 214,3,32,65,150,168, 
8,177,167,141 232,341 1, 
24843, 1629 

2468 DATA 32,132,158,173,232, 
3,41,45240,3,32,14 151,173, 
232,3,1615 

2470 DATA 41,2,208,3,76,11, 
155,96,32,9,158,173,238,3, 
141,214, 1544 

2480 DATA 3,173,231,2,141 215, 
332,65 ,158,165,167,141,82, 
3,165,1739 

2490 DATA 168,141 ,83,3,168,8, 
177,167 41 ,8,288,3, 76,58, 
155,206, 1654 

2508 DATA 214,3,32,65,150,160, 
8,177, 167,141 232,341 4, 
240,3,1632 

2510 DATA 32,219,158,173,232, 
3,411,248 ,3,32,86, 151,173, 
232,3,171 

2528 DATA 41,8,208,3,76,152, 
154,286,214 ,3,32,65,150, 
168,8,177,1649 

2538 DATA 167,141,232,3,41,4, 
248,3,32,173,158,173,232,3, 
41 ,1,1636 


2548 DATA 248,3,32,55, 151,173, 
232,3,41 ,8,288,3,7,211, 
154,286, 1796 

TA 214,3,32,65, 158,160, 
0,177, 167,141 ,232,3,41,4, 
248,3,1632 

2568 DATA 32,132,150,173,232, 
3,41,1,240,3,32,14 151,173, 
292,3,1612 

2570 DATA 41,,8,208,3,76,11, 
155,96,32,9 158, 173,230,3, 
181,214, 1558 


DATA 3,173,231,3,141,,215, 
332,05, 150,165, 167,141,82, 
3,165,1799 


2598 DATA 168,141 ,83,3,168,8, 
177,167 41 ,4,288,3,76,58, 
155,238 1682 

208 DATA 215,3,32,65, 158,168, 
0,177,167, 141 ,232,3,41,2, 
240,3,1631 

2618 DATA 32,219,158,173,232, 
3,41,8,248,3,32,86, 151 173, 
232,3,1778 

2628 DATA 41,,4,288,3,76,152, 
154,238,215,3,32,65,158, 
160,0,177, 1678 

2638 DATA 167,141 ,232,3,41,2, 
240,332,173, 158,173,232,3,| 
41,8, 1641 

2648 DATA 248,3,32,55,151 173, 
232,341 ,4,208,3,76,211, 
154,238, 1824 

DATA 215,3,32,65, 150, 168,| 
8,17, 167,141,232,3,41 
240,3, 1631 

2660 DATA 32,132,150,173,232, 


26: 


232,3,1619 
2678 DATA 41,4,208,3,76,11, 
155,96,32,9,150,173,238,3, 


3,41 ,B,240,3,32,14 151,173, 2 


141,214, 1546 

2688 DATA 3,173,231 3,141,215) 
332,65 158, 165,167,141 82, 
3,165,1739 

2698 DATA 168,141,83,3,168,8, 
177,167 411,208,3,76,58, 
155,286, 1647 

IATA 215 ,3,32,65,158, 168, 
0,177,167, 141,232,3,41,8, 
240,3,1627 

2718 DATA 32,219, 150,173,232, 
3,41,2,248,3,32,86,151,173) 
232,3,1772 

2720 DATA 41,,1,288,3,76,152, 
154,206,215,3,32,65,158, 
160,917, 1643 

2738 DATA 167,141 ,232,3,41,8, 
248,3,32,173 150,173 232,3) 
42,1641 

2748 DATA 248,3,32,55, 151 ,173, 
232)3,41,1,208,3,76,211, 
154,286 ,1789 

DATA 215,3,32,65, 150,168, 
8,177,167,141 ,232,3,41,8, 
240,3,1637 

2760 DATA 32,132,158 173,232, 
3,41,2,240,3,32,14 151,173, 
232,3,1613 ' 

2778 DATA 41,1,208,3,76,11, 
155,96,162,16,160,13,169, 
89,133,251 ,1584 

270 DATA 169,288,133,252,32 
74,155, 173,224,3,141 134, 
169,181 188,202 

2790 DATA 154,22,38,171 96,19] 
17,17,29,29 29,29 ,29,29,29, 
29,768 

DATA 29,218,218,218,218, 

218,210, 218,2108,218,210, 


» 


2 


2 


TT 


218,210,218,210,218 ,3179 

@ DATA 218,13,2,162,8,168, 

8 ,169,133,133,251 ,169,200, 

133,252,32,2093 

12828 DATA 74,155,173,224,3, 

141, 134,2,169,248, 160,154, 

32,30 ,171,,96,1958 

12038 DATA 19,17,17,17,29,29, 

| 29,29,29,29,29,29,29,29,29 | 

29,418 

J2848 DATA 29,210,210,218,218, 

210,210,210,218,13,0,162,2, 

1684169, 2219 

2858 DATA 176,133,251 169,20 

133,252,32,74 155,173,224, 

3,141,134,2,2252 

2868 DATA 96,19,17,17,17,17, 
17,29 29,29 29 ,29,.29 29,29, 
29461 

2870 DATA 29,29,29,29,29,29, 
201,281 ,13,0,162,26 168,19, 
169,44, 1169 

2888 DATA 133,251 ,169,200,133, 
252,32, 74 155,96 ,142,232,3 

23,3, 2238 

2898 DATA 162,8,168,8,169,73, 
145,251 ,288,284 ,232,3,208, 
246 165,251 52469 

2988 DATA 24,185,48,133,251, 
165,252,105 8,133,252,232, 
236 ,223,3 208 ,2362 

2918 DATA 225,96,7, 


205,239 17,51 ,1923 
2928 DATA 85,119,153,187,221, 
255,33, 155,155,155, 156156, 
156,156, 156,156, 2454 
2998 DATA 156,156,157,157,157 
157, 157,197,157,157,158, 
193,194,195, 196,283,2787 
2948 DATA 203,283,283,283,283 
703, 283,283,283, 283,283, 
203 ,203,283,283,283,3248 
2958 DATA 283,283,283,283,283 
203,203,283,283, 197,198, 
199,208, 282,282, 282,3227 
2960 DATA 282,193,194, 195,196 
283,283, 283,283,283,283, 
203,203,283 ,283,,283,3213 
2978 DATA 203,283 283,283,283 
203,283,197, 198,199,288, 
202,282 ,282,202,282,3225 


2988 DATA 202,26 
202,282,193, 
203,283,283 ,203 263 ,3287 

2998 DATA 283,283,203,283,283, 
197,198, 199,280 ,202,282, 
282, 202, 282, 282,282,222 

DATA 282,202,282, 28 


202,282, 282,282,202,282, 
202 ,282,193,194,195,3208 
DATA 196,283,283 197,198, 
199 ,288,282,282,282 ,202, 
202,202,202, ai 202,3214 


02,282 ai ts 202, 
202,202 282,282,282 3232 
3098 DATA 282,202,202, 208,211, 

202,202,282, 


22; 282,282,202, 282,3247 
3040 DATA 202,202,282,282,282, 
202,262,262, 282, 282,282, 


3050 DATA 202,202, 207,202,202, 
208,211 ,202,202,282 202, 
202,202,202, 202,282" 3247 

3068 DATA 282,282,202,282,282, 
202,202,282 ,282 282,282, 
202 ,282,202,202,282,232 

3878 DATA 202,202,282,282,282, 
202,202,208,211 ,282,282, 
202,282,202 ,282,2 

DATA 282,202.28 

82,282,282, 282,282,282, 
202,202 282,282,282 ,3232 

3898 DATA 282,282,282,282,282, 
202,202,282,282,288,,211, 
202,.202,202,282,282,3247 

3108 DATA 202,282,282,202,282, 


2 


308 


3140 DATA 205,202,202,207,202, 
202,202,282, 202,702,202, 
202,202, 202,282, 282,235 

3158 DATA 282,282,282 ,282,282, 


202 ,282,282 202,282,282, 
202,204,283 ,283,283,3237 
3168 DATA 283,283,283,205,202, 
202,282,202,262,282,202, 

202,282 
3178 DATA 


203,285 ,2 


Mm a, 


F 
3200 DATA 203,209, in, 283, 
203,203 203,283,285 ,202, 
202,202 782,282,202,3244 
3218 DATA 
202, 202,21 
282,202,282, 282,284 ,3234 
3220 DATA 203,283,283,283,283, 
203,203,283 ,283,283,283, 
203,285 ,282,282 202 3247 
3238 DATA 282,282,202,202,282, 
202, 202,202,282,282,,282, 
202,202,202 ,202 ,282,,3232 
3240 DATA 204,,283,203,283,283, 
203,283, 283,203,203 283, 
203,203,283 ,203,,285 ,3251 
3250 DATA 262,202,202,262,262, 
202 202,282, 


3268 DATA 202,284 283,283,283, 
203,203,283, 2 203,283, 


202,282, 282,202,282,3237 


3280 DATA 202,282,204 
703,209,283, 203, 
249, 203,209,209, 209,3247 

290 DATA 203,203,203 
205,202 ,282, 202,20; 


3380 DATA 282,282,202,284 
203 , 263,283,203, 283 283, 
203,203,203 283,283 3246 

3318 DATA 283,283 
203,203 ,283, 205,282,282, 
282,202,202 ,282,282,3243 

3328 DATA 202,202,21 
203,203 , 203 ,283 


283,203,203, 283,203 ,3245 
3390 DATA 283,203,203 ,203,283, 
203,203,283 203,203,283, 
205 ,282, 282,202, 202,3246 
3340 DATA 202,282 202,202,202, 


3358 DATA 203,263 ,283,203,283, 
203,283,283 203,283,283, 
203,203 283,285 ,282,3249 

3368 DATA 282,202,202,281,17, 
157,201 17,157,281 17,157, 
201,,17,157, 281 ,2387 

3378 DATA 17,157, 
201,17,157, 157,281 ,201,17, 
157, 157,28: ,281 ,2245 

3380 DATA 17,157,157,261 ,281, 
17,157,157 201,281 ,17,157, 
157,281,201 ,17,2216 

[3998 DATA 157,157,201,281,17, 
157,157,281 ,281 ,17,157,157, 
201,281 ,17,157,2356 

[3480 DATA 157,283,203,17,157, 
157,283,203 17,157 157,283, 
203,17, 157 157, 2368 

3418 DATA 283,283,8,281 ,281, 
201,17, 157,157,157, 261 ,281 
201 ,17,157,157,2431 

3420 DATA 157,281 ,281,201,17, 
157,157 157,281 ,201 ,281 ,17, 
157,157, 157,201 ,2548 

9438 DATA 261,281 ,17,157,157, 
157,201 ,261 261 17,157,157, 
157,281 ,281 ,281 ,2584 

3448 DATA 17,157,157,157, 281, 
201,201 17,157, 157,157,281, 
201,281 ,17,157,2356 

3458 DATA 157,157,201 ,201 
17,157,157, 157,201,201 ,281, 
17,157, 157,157 ,2496 

3468 DATA 201,281,281 12,157, 
157,157,281 ,201 281 ,17 
157,157,281 ,281 ,2584 

3476 DATA 201 ,17,157,157,157, 
203,283,203, 17,157, 157,157, 
203 ,283,203,17,2412 

3480 DATA 157,157,157,283,203, 
203,17 157 ,157,157,0,281, 
17,157,281 17,2161 

3498 DATA 157,201,17,157,281, 
17,157,201 ,17,157,283,0,0, 
234 2,235 1956 


RIMMER. Dol usu yall a 


1 


The routines have twoentry XC - Horizontal coordinate of 
points the cell you are in 
YC - Vertical coordinate of the 
cell you are in 
SYS 38403 - initialises the - Direction of sight 
colours and multicolour mode. 
SYS 38400,SA,WI,XC,YC,DI 
SA - Start address of the maze 1= North 
arra) East 
WI - The width of the maze 3= South 
(number of cells) 4= West 


In the demo, you may 
notice a number of points 


1) | use the normal screen 
memory to store the maze. This 
is handy if your maze is less 
than 1024 cells in size. 

2) The routine does not handle 
your movement. The routine 
will show you a dead end but 
will not prevent you from 


moving through it. Lines 110- 
180 in the demonstration 
handle that. 

3) After calling the routine, 
locations 850 and 851 hold the 
address of the cell you are in. 
By PEEKing this location, you 
can check which exits are open 
16 movement. Line 60 and lines 
150 to 180 in the demonstration 
show this. 


PROGRAM: 3D SETUP 


JGR 


30 DEMO 


18 POKE 5¢. 158:CLR 
20 POKE 58578 ,PEEK(56578)0R 3: POKE 54576, 
(PEEK(56576) AND 252)0R @ 
38 POKE 648,200 
48 POKE 53272, (PEEK (53272) AND 248)0R @ 
58 POKE 53272, (PEEK (53272) AND 15)0R 32 
48 POKE 56334, PEEK (56334) AND 254 
72 POKE 1 ,PEEK(1)AND 251 
88 FOR 1=@ TO 2847:POKE 1+1784096 ,PEEK (1+59248) :NEXT 
90 POKE 1,PEEK(1)0R 4 
188 POKE 56234 ,PEEK(S6334)0R 1 
2000 FOR L=@ TD 9:CX=O:FOR D=8 TO 15:READ A:CY=C1+h 
SPOKE 49672+L816¢D ASNEXT 0 
2010 READ AIF ACDCK THEN PRINT*ERROR IN LINE 
STOP 
2028 NEXT LPRINT CHRS(147)*NEM SCREEN POSITION AND CHARAC 
TER SETESPC3INOW SET UP* 
40 DATA 175,178,178, 178,178, 178,178,178,255,255,175,178, 
70,178,178, 1782900 
DATA 255255, 255,255, 175,170,178 178,255,255 255,255, 
255,255,175 170 ,3508 
2860 DATA 285,255, 255,255,255, 255,258,178, 255, 255,255,285, 
250,178,178,178,3730 
2078 DATA 255,255,258,178,178,170,178,178,258,178, 178,172, 
178,178,178, 178, 3858 
2088 DATA 85,85,85,85,85,85,85,85,170,170,178,178,178,178, 
170,178,.2048 
2098 DATA 255,255,255 ,255,255 255,255,255, 178,178,171 171 
175,175,191 ,191 ,3454 
2100 DATA 178,178,234 ,234 258,250 ,254 ,254,255,255,255,255, 
255,85 ,85 85,3346 
2118 DATA 255,255,255 .255 ,255 .255 ,255 854191 191,191,191, 
191,191,191 191 ,3398 
2128 DATA 255,255,255 ,85 ,85,85,85,85,255,85,85,85,85,85,85, 
85,2040 
2438 DATA 254,254,254 ,254,,254 ,254, 254 ,254 ,4,195,67,79,65, 
116,253,79,2898 
2140 RENAStEEEEEAENAE NE EAsEE 
2158 REM 30 SETUP ROUTINEESPC3]8 
2168 REMtAEAEREHSAteRESetEAtE 


+ (L918) 


18 DATA 6,10,14,10,14,18,12 
20 DATA 3,10,11,10,11,10,13 
30 DATA 6,10,10,10,10,18,9 


48 FOR I=8 TO 2B: READ Y: POKE 102461 1:NEXT 
+ POKE 994, 


58 POKE 992,11: POKE 93,9 
+ POKE 996,08: POKE 997,8 
68 DEF FNA(A)= 


78 SYS 38483 
82 SYS 38480, 1024,, 


is I$=**THEN 108 
E*THEN 


120 IF 1$="W"THEN 


190 IF 1=*S*THEN 


140 IF I$=*N*THEN DI: 


+ BOTO 190 


160 IF I$=*F*AND DI=3 AND YP<2 AND (FNA(A) AND 4)THEN YP=Y 


GOTO 198 


WP+l: FL 


: GOTO 198 


180 IF 1S=*F*AND D1=4 AND XP>@ AND (FNA(A) AND 8) THEN XP= 


WP-t: FL=L 


8 GOTO 188 
218 RENASEEateatE EE 
228 REMS 3D DEMOLSPC4]# 
230 REMEBSEatatesett 


PEEK (PEEK (B51) $256+PEEK (858) ) 
+ PRINT CHRS(147): POKE 658,128 


:PRINT* [HOME] *TAB(36) *CWHITE ,SPC] 
NELEFT2,1 sawn ‘ARROWJECDOWN ,LEFT2]5" 


PRINT* HOME ]*TAB(36) "WHITE ,SPCIE 
CDOWN ,LEFT2]NCUP-ARROW]SEDOWN ,LEFT2W 
2PRINT*CHOMEJ*TAB(36) “(WHITE ,SPCIW 
‘DOWN ,LEFT22SCUP-ARROWIN( DOWN ,LEFT2JE*: FL=1: GOTO 198 
PRINT* (HOME *TAB(36) "(WHITE ,SPCIS 
CDOWN ,LEFT2ECUP-ARROW]WCDOWN ,LEFT2IN' 
:PRINT*CHOME]*TAB (36) *CWHITE ,SPCIN 
{DOWN ,LEFT2]WCUP-ARROWJECDOWN ,LEFT2IS": FL=1: GOTO 198 
150 IF 1$=*F*AND DI=1 AND 1P)® AND (FNA(A) AND 1) THEN YP= 


FTAND DI=2 AND XP<6 AND (FNACA) AND 2) THEN 1P> 


IF FL=1 THEN SYS 38408,1824,7,1P,YP,DI: FL=8 


+ POKE 995,14 


FL=t: GOTO 198 


Flet: BOTO 190 
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ANEW TAPE TO OISH SYSTEM 


AMS THE REST 


ve 


FREEZES & THEN S. 
(regardless of whether 


AVES ALMOST ALL PROGRAMS TO DISK 
loaded from tape or disk) 


SAVES THE PROGRAM ON DISK AS ONE FILE. 


w»pRoGRAM CRUNCHER" AUTOMATICALLY REDUCES DISK-SPACE USED. 


(you can save 5 
FAST LOADING BACK. 
POWERFUL MACHINE CODE MONT 
you can stop any program, 
directly, restart the progi 


LOADS BACK WITHOUT. THE CARTRIDG 


(loads back from both 1541 & 1570 


VERY EASY TO YOU 
DOES IT ALL FOR YOU. 


‘or more programs per disk) 
‘THE BUILT-IN GT LOADER SPEEDS LOADING. 
‘TOR WITH ALL THE USUAL FUNCTIONS PLUS: 


disassemble and modify am 
ram from where it was stopped, 


y of the 64k 
ETC ETC 


CONNECTED. 


disk drives) 


SE. YOU DON'T HAVE TO BE AN EXPERT, THE CARTRIDGE are To 


she, wost RECENT 5 


USE AN EXPERT IF YOU WANT THE JOB DOING PROPERLY. 


FOR TAPE TO DISK - THE EXPERT CARTRID 
(128 VERSION AVAILABLE SOON. oR = 


AVATLABLE NOW FOR CBM 64, 


SE IS FIRST CHOICE EVERY TIME, 


555 ancy CROW DESPaT 
You WiLL’ Receive The” aye 


TRILOGIC 


Dept EX 


eK ; 
coum SOE th cn amg 


FULL INSTRUCTIONS, geEER 
OPERATING 0 Si CONTAININ 
WARE & DEtaroR 4 
SOFTWARE UPGRADING SeRrTAee® OF 
Exrorr: VICE, 


PLEASE ADD 
ADD £1.00 EXTRA 


MAIL ORDER 29 HOLME LANE BRADFORD BD4 0QA 
CALLERS 329 TONG STREET BRADFORD BD4 9QY 
Tel 10274] 684289 
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Pech ca ies 
18-25" COM 1400 monrroRe TTY & 
YoCeHROME Leap » 

ONOCHRONE LAD FoR Host 
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ger THE 
SOFTWARE 
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TRILOGIC 


Dept EX 


PLEASE Si » CHEQUE, OR BANKERS DRAFT PAYABLE TO TRIL 


OR PAY 


EXPORT: 


BY TRANSCASH, A/C’NO.650-3659 AT ANY POST OFFICE 
ADD £1.00 EXTRA. PAYMENT IN STERLING ONLY PLEASE 


MAILORDER 29 HOLME LANE BRADFORD BD4 0QA 
CALLERS 329 TONG STREET BRADFORD BD4 9QY 
Tel [0274] 684289 


WE OFTEN GET LETTERS ASK- 
ing how two Basic programs 
can be merged together into a 
single program. This is useful 
for entering old and loved sub- 
routines which can take hours 
to type in. 

The problem with most 
simple merge routines is that 
they don’t cater for the 
situation when the two 
programs share the same line 
numbers so | have included a 
routine which does a simple 
renumber. 

Enter and save the listing 
and don’t worry if you don’t 
understand it, all will be 
revealed later. 

The address of the start of 
Basic is stored in the two bytes 
starting at location 43 (hex 2B) 
and the end of a Basic program 
in the two bytes at location 45 
(hex 2D). Normal loading of a 
program leaves the pointer at 
location 45 pointing at the last 
of the three zero bytes with 
which every Basic program 
ends. To merge a second 
program on to the one in 
memory we have to fool the 
computer into believing that 
the start of Basic is now at the 
end of that program. 

This simply means that the 
pointer at location 43 is 
changed to the same value as 
the pointer in location 45. 
Unfortunately, that is not quite 
right because we have to lose 
the last two zero bytes from our 


program in memory first. In 
practice, we load pointer 43 
with the value of pointer 45 
minus two, 

To get the actual value of 
the pointer the first byte is 
added to the second byte 
multiplied by 256: 


P=PEEK (45) + PEEK (46) *256 
Subtracting two from P: 
P=P-2 


And splitting the result into 
pointer 43: 


POKE 43,P AND 255: POKE 
44,P/256 


We can now load our 
second program in the normal 
way after which we redirect 
pointer 43 to the normal begin- 
ning of Basic in this way: 


POKE43,1:POKE44,8 


Listing the program will 
now show that both programs 
have been joined together. 
Obviously, the above lines 
must be entered in direct mode 
just as they are written here and 
not given line numbers 
because that would really crash 
the system. 

The programs cannot be 
said to be truly merged until 
the line numbers have been 
changed. The polite way to 
describe this dog’s dinner of a 
program is to say that it is 
simply two concatenated 
programs. A renumber routine 
is needed. 

Repeating the above pro- 
cedure would allow a third 


renumbering program to be 
merged but to get it to run 
would be a nightmare. One 
solution is to fool the 64 into 
believing that Basic memory 
lies elsewhere in memory for 
the time being. 

A likely place is the ‘spare’ 
block of memory which is 
much favoured by machine 
code programmers and starts at 
49152. To alter the memory 
layout use the following line: 


POKE44,192: POKES6,208: POKE 
49152,0:NEW 


Now load the renumber 
routine which you saved earlier 
using the normal LOAD syntax 
for your disk or tape. 

Type RUN and press 
RETURN. When the program 
stops press RETURN again and, 
Hey Presto, there’s your re- 
numbered listing ready to be 
saved once you've changed all 
the GOTOs and GOSUBs (what 
do you expect, real magic?). 

What happened is that the 
program followedall of the line 
links through the program in 
the normal Basic memory and 
changed the line numbers to 
the values selected in the 
renumber program. 

Talking of magic. | bet! can 
make your screen wobble. Try 
this: 


FOR A=0 to 200:POKES3270,A: 
NEXTA:POKES3270 


How's that for an explosive 
effect? 

If you've ever had a 
program which uses the GET 
command it may have 
occurred to you that it would 


be nice to have a flashing 
ate that the 

computer is waiting for some- 

thing to be input. Memory 

location 204 enables and dis- 

ables the cursor, so write your 
GET statement like this: 


10 POKE 204,0:GET A$:IF_ 
AS=“"THENTO 
20 PRINT AS 


Well that’s the last gem for 
this month. If you've written 
handy little routine whic 
you'd like to see on 
Commodores around the 
world, why not send them to 
Scratchpad, Your Commodore, 
No 1 Golden Square, London 
W1R 3AB. 
ready. 

are you sure? 


AO INPUT "FIRST LINE NO";NL | 
‘20 INPUT “LINE INCREMENT"; IN 
c 

‘30 NL=NL~INC 

46 Lk=2649:LN=2051 i 
SO IFPEEK(LK)=@ANDPEEK(LK+1) | 
SOTHEN 118 

66 NL=NL+INC 

78 POKELN,NL AND 255:POKELN+ 
1,NL/256 

86 LK=PEEK (LK) +PEEK(LK+1) 825 
6 

96 LNELK+2 

166 GOTOS@ 

116 PRINT*POKE4S, * (LKAND255) 
#2" POKE4G, "INT (LK/256) 5 

126 PRINT *:POKE44, 8:POKE43, 
1:POKES6, 160:LCs 1]CUPICUPIE 
UPICUP]* 
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WORDPROK IS A DISK-BASED 
word processing package 
offering a full multi-function 
machine code screen editor 
and high-speed printout 
routine, along with a Basic 
main program equipped with a 
number of other facilities. It 
also allows you to “customise” 
it easily if required. 

A word processor is a 
program which turns a com- 
puter into an “electronic 
typewriter”. It allows you to 
enter text, correcting any 
mistakes as you go, and ets you 
add, delete, or change any 
sections as required before the 
final printouts produced. Thus 
the final draft isall that needs to 
be printed on paper, and it 
should be error-free, saving a 
lot of waste paper. 

The listing comprises two 
programs: the first is a Basic 
loader program for the 
machine code section. This 
loads the machine code (in a 
series of DATA statements) into 
memory starting at 49152, and 
when the data is correct and 
loaded, the machine code 
section (just over 3K) is saved as 
a machine code file to disk. The 
main program can then load 
this program file, and the 
loader with the machine code 
data need only be used once, 
hence saving time when it is in 
use. The second program is the 
word processor itself, and 
provides easy access to the 
machine code routines used. 
Although the machine code 
would be difficult to modify, 
the Basic program could be 
adapted to suit your own 
requirements. 


Wordprok Manual 


‘On running the program, the 
machine code section is auto- 
matically loaded from disk if it 
is not already present in 
memory. A menu is then pre- 
sented, with the following 
options. 


1, EDIT DOCUMENT 
This selection gives access to 
the machine code screen 


MEIER KE 


PROGRAM: PROKCODE. GEN 

10 REM 44% WORDPROK 

RATOR 634 

28 REY 814 BY IAIN MURRAY 
(C) 1986 38% 

36 REM 888 FOR YOUR COMMODOR 
cat 

56 POKE 53280, 6sPOKE 53281,1 

60 PRINT "{CLEAR, DOWNS, 
RIGHTS, RVSON, SPCIWORDPROK 
MACHINE CODE GENERATOR 
TSPC,RVSOFFI" 

65 PRINT" CDOWNS, RIGHT2]T} 

ILL SAVE "PROKCODE’ 0! 

0 Disk" 

76 PRINT "CDOWNS, RISHT?2 
LOADING DATA ~ PLEASE 

190 AD=49152:C=8 

118 READ A:POKE AD,A:CeC+A 
TADSAD+L 

120 IF ADCS2441 THEN 11¢ 

130 IF Ae96 AND C: 
N 150 

146 PRINT "EDN! 
ERROR -IN DATA! 

150 PRIN 


CODE GEN 


THE 


DATA OK-PRESSESPC, RVSOX, 
SPCISPACE ‘SPC, SVSOFF, SPC 
70 SAVE" 


ASC)" " THEN 1 


170 POKE 43,:POKE 44,192 
:POKE 45, 218:POKE 46,284 

186 SAVE *PROKCODE™, 8 

196 END 

1808 DATA 169,88, 133,251, 169, 
4,133, 252, 173, 254 

DATA 267, 133,253, 173, 
255, 207, 133, 254, 169, 0 

1026 DATA 141,232,267, 141, 
252, 207,141, 253, 207, 160 

DATA 8, 177,253, 261, 268, 
246, 28, 201,196, 240 

1040 DATA 16, 281,211,248, 12, 
201, 202, 248,8, 201 

1056 DATA 264,240, 4,281,195, 
248, 28,32, 23, 193 

1068 DATA 177,253,145, 251,32, 
154, 192,32, 191, 192 


rt 


1678 DATA 32,172,192, 32,23, 
193,32, 286, 192,32 
1988 DATA 9,193, 76,31,192, 
261, 182, 208, 28, 145 
1890 DATA 251,32, 154, 192,32, 
191,192, 32, 286, 192 
1196 DATA 32,39, 193, 32,23, 
193, 76, 163, 192, 261 
1116 DATA 159,240, 285, 145, 
251, 32, 154,192, 32,191 
1126 DATA 192,32, 172,192, 173, 
238, 267,248, 16, 173 
1138 DATA 252,207, 261,29, 48, 
9,177, 253, 261,32 
1149 DATA 208,3,32,23,193, 32, 
286, 192,32,9 
1158 DATA 193,76,31, 192,238, 
251, 165,251, 268,2 
116 DATA 238, 252, 96,238, 253, 
165, 253, 288,2, 238 
1178 DATA 254, 96,238,252, 207, 
173, 252, 267, 201,40 
1188 DATA 48, 8,238,253, 267, 
169,,141, 252,267 
1196 DATA 94,165,251, 281, 152, 
208, 8, 165, 252, 261 
1268 DATA 7,268,2, 164, 194, 9, 
173,232, 267,268 
1216 DATA 53, 165, 253,285,249, 
7, 208, 46, 165, 254 
258, 267,268, 39, 
7, 282,232 
1236 DATA 172,252,267, 173, 
249, 267,205, 254,287,208 
1240 DATA 12,173,258, 287,205, 
285, 267, 208, 4, 162 
1256 DATA 2,160,0,24,32,248, 
255, 166,0,169 
1260 DATA 1,141,232, 287,96, 
165, 253, 24, 105, 1 
1276 DATA 133,253,165, 254, 
195,9, 133, 254,96, 169 
1288 DATA 32, 145,251,32,154, 
192, 165, 251,261, 152 
1298 DATA 208,9, 165,252, 
7,268, 3, 164, 184 
1366 DATA 94,32,172, 192,173, 
252, 267,261, 8,248 
1310 DATA 3,76, 23, 193,32, 286, 


192,46, 173, 152 


1320 DATA 219,261, 6,248,50, 
173,224, 217, 265, 239 

1330 DATA 267,248, 42, 169,88, 
133, 251, 169, 216, 133, 
1349 DATA 252,173, 239,207, 
145, 251, 165, 251, 24, 105 
1350 DATA 1,133,251, 165,252, 
105, 8, 133,252, 201 

1348 DATA 219,208, 234, 165, 
251, 261, 152, 268, 228, 173 

1374 DATA 239,287, 141, 134,2, 
96,138, 72, 24,173 

1380 DATA 258,287, 105,177, 
176, 17,56, 169, 224,237 

1396 DATA 229,207, 24, 109,249, 
287, 144,54, 173,229 

1406 DATA 207,248, 49,546,173, 
249, 267,237, 229,207 

1416 DATA 133,251, 173,256, 
207,233, 0,133,252, 172 

1426 DATA 229,207,177,251, 
160,8, 145,251, 261, 162 

1436 DATA 248, 6, 32,154, 192, 
7h, 163, 193,174, 229 

1449 DATA 267,32,37,199, 202, 
208, 250,169, 8, 141 

1450 DATA 229,207, 184, 178, 94, 
173,246, 207, 133, 251 

1466 DATA 173,247,267, 133, 
252, 1660, 177,251, 172 

DATA 229,267,145, 251, 

165,251, 205,249, 267, 268 

1486 DATA 42, 165,252, 205, 258, 
207,268, 35,172,229 

1499 DATA 267,136, 169,0,141 
251, 267, 169, 32, 145 

1509 DATA 251,173, 251,267, 
240,8, 104, 104, 169,8 

1518 DATA 141,248, 207, 96,32, 
16, 199, 136, 192, 255 

1520 DATA 268,231, 9%, 198,251, 
165,251, 261,255, 268 

1530 DATA 2,198,252, 76,209, 
193,169, 32, 133,251 

1540 DATA 169,78, 133, 252, 168, 
9,148, 244, 287, 148 

1550 DATA 245,267,177,251, 
201, 102, 208, 1,96, 201 

1568 DATA 194,248, 6,32, 154, 
192, 76,46, 194,32 


a a ae 


1576 DATA 154, 192,177,251, 
201, 182,248, 236, 261,32 

1580 DATA 248, 243, 261, 197, 
248,228, 238, 244, 207, 173 

1596 DATA 244,267,268, 3,238, 
245, 207,32, 154, 192 

1606 DATA 177,251,201, 102, 
248, 208, 261, 197, 248, 264 

1610 DATA 261,32,246, 211,261, 
159, 248, 267,76, 85 

1620 DATA 194,76,73,197, 169, 
0,141,248, 267, 141 

1630 DATA 251,267,173, 142,2, 
412,240 38, 32 

1648 DATA 228,255, 240,236, 
261, 137, 208, 6,238, 33 

1650 DATA 28,76, 73,197,281, 
138,268, 6, 238,32 

1668 DATA 268,76, 73,197,261, 
139, 248,3, 76,39 

1676 DATA 195,238,239, 207,76, 
73,197,173, 142,2 

1680 DATA 41,4,208,3, 76,31, 
195,32,228, 255 

1496 DATA 208, 3,76, 112,194, 
2016, 268,8, 169 

1700 DATA 1,141,248, 267, 133, 
204,96, 261, 38, 208 

1716 DATA 16,169, 1,133,204, 
169,2,141,248, 267 

1726 DATA %6,201,31,208,15, 
172, 138, 2,173,237 

1730 DATA 207,141, 138,2,149, 
231, 267,76, 73,197 

1748 DATA 261, 28,208, 10, 169, 
4,141, 248,207, 169 

1756 DATA 1, 133,264,%6,201, 
16,248,35,261,4 

1768 DATA 248,531,201, 19,248, 
27,261,2, 240, 23 

1776 DATA 261,5,240, 19,281, 
18, 248, 15,261, 18 

1786 DATA 249, 11,201, 12,248, 
7,261,3,248,3 

1796 DATA 74, 112, 194,24, 105, 
192, 76,19, 197,32 

1800 DATA 228,255, 268,3,76, 
112,194,261, 166, 268 

1816 DATA 3,76, 112,194,201, 
160,208, 5, 169,32 

1826 DATA 76, 19, 197,261,192, 
208, 5,169, 64,78 

1836 DATA 19,197,261,13,208, 
5,169, 159, 7,19 

1840 DATA 197,261, 141,208,5, 
169, 159,76, 19, 197 

1856 DATA 261,29, 268,,32, 
199,198, 76,73, 197 

1866 DATA 261, 157, 208, 6,32, 
233,198, 76,73, 197 


1876 DATA 261,17,208, 13,162, 
6, 32,199, 198, 232 

1886 DATA 224,40, 268, 248, 76, 
73,197,261, 145, 268 

1896 DATA 13, 162,0,32,233, 
198,232,224, 48, 268 

1900 DATA 248,76,73,197,201, 
147, 208, 16, 172,238 

1910 DATA 207,192, 1,268,2, 
136, 136, 208, 148, 238 

1920 DATA 207,76,73,197,261, 
19, 268, 15, 173, 254 

1936 DATA 267,141,249, 207, 
173, 255, 267, 141, 250,267 

1940 DATA 76, 73, 197,261, 20, 
208, 14,169, 1,141 

1950 DATA 229,267, 32, 128,193, 
32,233, 198, 76, 73 

1960 DATA 197,201, 148,208, 11, 
189, 1,141,229, 207 

1976 DATA 32, 199,193, 76,73, 
197,261, 138, 268, 19 

1986 DATA 169,40, 141,229,207, 
32,128, 193, 173,229 

199 DATA 267,208, 3,76, 123, 
195, 76, 112, 194, 261, 

2066 DATA 139,268, 11, 169,40, 
141,229, 267,32, 199 

2019 DATA 193,76,73,197,201, 
133, 208, 88, 173,249 

2028 DATA 207, 133,251,173, 
256, 267,133,252, 162, 0 

2036 DATA 165,251,205, 246, 
207, 268,27, 165, 252, 205 

2040 DATA 247,207,268, 20,169, 

141,251, 267,32 

2050 DATA 19,199, 173,251,207, 
248, 1,96, 169, 182 

2060 DATA 166,1, 145,251,169, 
52, 168, 8, 145, 251 

2670 DATA 32, 154, 192,252,224, 
5, 268, 208, 173,249 

2086 DATA 207,24, 105,5,141, 
249, 267, 173, 250, 267 

2096 DATA 195,0, 141,250,207, 
7h, 73,197, 261, 135 

2108 DATA 208,31, 162,0,160,8, 
32,233,198, 173 

2119 DATA 249, 267,133,251, 
173, 256, 267, 133,252,177 

2126 DATA 251,261,32,240,5, 
232, 224, 86,208, 232 

2138 DATA 76,73, 197,261, 136, 
208, 31, 162,0, 168 

2149 DATA 6,32, 199, 198, 173, 
249, 267, 133, 251, 173 

2156 DATA 256, 267, 133, 252, 
177,251, 261,32, 248,5 

2166 DATA 232,224, 88, 268,232, 
76,73, 197,261, 137 


2170 DATA 208, 16, 162,0,168,3, 
32,233, 198,232 

2186 DATA 208, 256, 136, 268, 
247,76, 73,197, 261, 149 

2198 DATA 208, 16, 162,8,168,3, 
32, 199, 198, 232 

2268 DATA 268, 256, 134, 268, 
247, 76,73, 197,201, 134 

2210 DATA 268, 47, 162,28, 169, 

2 


173, 249, 267, 133, 253 

2236 DATA 173,250, 267, 133, 
254, 198, 253, 165, 253, 261 

2246 DATA 255, 268,2, 198, 254, 
166, 9, 177,253, 261 

2256 DATA 32,246, 3,262, 208, 
214, 76,173, 195,141 

2266 DATA 231,267,724, 105,192, 
144,29, 173, 231, 267 

2270 DATA 24, 195,83, 176, 12, 
173, 231, 267,56, 233 

2286 DATA 64, 141,231,267, 76, 
16, 197,173,231, 267 

2296 DATA 54,233, 128,141,251, 
207,173,231, 267,72 

2360 DATA 173, 249,207,133, 
251,173, 256, 207, 133, 252 

2310 DATA 166,., 104,145, 251, 
173, 246, 267, 205, 249 

2326 DATA 207,208, 27, 173,247, 
267,205, 258, 267, 208 

2330 DATA 19,260, 169, 162,145, 
251, 169,94 141,251 

2348 DATA 207,32, 18,199, 173, 
251, 267,240, 1,96 

2350 DATA 32,199, 198, 169, 1, 
141,228, 267, 32,233 

2368 DATA 198,32, 8, 192,32, 
199,198, 32, 62,193 

2376 DATA 173,232, 207,268, 
126, 173,256,207, 205, 255 

2380 DATA 207,240,5,16,28,76, 
118,197, 173,249 

2390 DATA 207,205,254, 207, 
240,17, 16, 15,173,249 

2409 DATA 207, 141,254, 267, 
173, 250, 267, 141, 255, 207 

2418 DATA 74,78, 197,173,250, 
207, 197,254, 2495 

2428 DATA 48, 3,76, 154,197, 
173,249, 267, 197, 253, 

2430 DATA 249,63, 48,61,173, 
249, 267,201, 32, 208 

2449 DATA 7,173,258, 207,201, 
78,240, 47,173,249 

2450 DATA 207, 56, 233,12, 141, 
254, 207,173,258, 207 

2469 DATA 233, 0,141, 255,267, 
201,78, 268, 23,173 > 
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editor, turning the computer 
into a typewrite on the screen. 
All the standard upper and 
lower case letters are available, 
as well as the graphics charac- 
ters accessed via the Commo- 
dore logo key. 

Text will appear at the 
flashing cursor as in the normal 
screen editor. A small check 
square character indicates 
the end of the text. To exit 
from the editor, hold CTRLand 
Press ““~”. On re-entering the 
editor from the main menu, the 
cursor will be in the position it 
was in when the exit was made. 
To display the help facility, 
hold CTRL and press “1” 
These messages are also dis- 
played at the foot of the screen 
throughout editing. The help 
facility gives an on-screen 
summary of the screen editor 
functions and control 
characters. These are as 
follows: 


CTRL ~—: Return to main menu. 
CTRL: Print on-screen help 
messages. These are printed on 
the screen one page at a time, 
then control is returned to the 
editor. 

CTRL £: Enter serach/replace 
mode, This allows you to search 
for specific text in the file, and 
replace it if required. The 
search string is requested 
{along with a replace string if 
required). Both strings must 
contain at least two characters, 
and not more than 40 
characters. The search routine 
then finds the next occurrence 
of the search string in the text 
starting from the current cursor 
position, and displays this 
Pressing SPACE will find the 
next occurrence of the search 
string. Pressing R (if replace was 
selected) will replace the word 
found with the replace word, 
and find the next occurrence of 
the search string. Pressing 
RETURN will return control to 
the editor. 

CTRL =: Automatic key repeat 
onfoff toggle. This allows all 
keys to auto-repeat or not. 
CRSR Right: Move cursor to 
next character 

CRSR Left: Move cursor to 
previous character. 

CRSR Up: Move cursor back 40 
characters. 

CRSR Down: Move cursor 
forward 40 characters. 

CLR: Split/unsplit words. Nor- 
mally, words are split at the end 
of a line as the line “wraps- 
round”, Pressing CLR will auto- 
atically throw aline feed before 
the end of the line, so allowing 


the text to be read more easily. 
HOME: The cursor is moved to 
the top left corner of the 
screen. 
F1: Tab. Five spaces are printed 
from the current cursor 
position. 
F3: Delete word. Textis deleted 
from the current cursor 
position back to the first 
preceding space. 
F5: Cursor back one word. The 
cursor is moved left to the first 
preceding space. 
F7: Cursor forward one word. 
The cursoris moved right to the 
first space. 
F2: Cursor up one page. The 
cursor is moved back 256 
characters 
’ F4: Delete line. The 40 charac- 
ters preceding the cursor are 
deleted. 
F6: Insert line. 40 spaces are 
inserted at the current cursor 
position. 
F8: Cursor down one page. The 
cursor is moved forward 256 
characters. 
CBM FI: Change background 
colour. 
CBM 
colour. 
CBM F5: Change text colour. 
In addition to these control 
function keys, several keys add 
special characters into the text 
in reverse field. These are used 
to control formatting during 
printing and are as follows: 
=: RETURN character. Jumps 
to next line (line throw). 
CTRL P: Page throw. When 
printing out, a new page is 
started. 
CTRL D: Double line spacing. A 
line is thrown, and subsequent 
lines are double spaced i.e. one 
blank line appears between 
each line of text. This is the 
default spacing. 
CTRL S: Single line spacing. A 
line is thrown, and subsequent 
lines are single spaced i.e. no 
space between lines of text. 
CTRL: Left justify text. A line is 
thrown, and subsequent text is 
printed left justified i.e. the left 
is aligned, but the right 
ragged. This is similar 
to the output from a normal 
typewriter. 
CTRL R: Right justify text. A 
line is thrown, and subsequent 
textis printed right justified ie. 
the right margin is aligned, but 
the left margin is ragged. 
CTRL J: Right and left justify. A 
line is thrown, and subsequent 
lines are printed right and left 
justified i.e. both margins are 
aligned. This is the default 
justification setting. 


F3: Change border 
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2476 DATA 254,267, 281,31, 16, 
16, 109,32, 141,254 

2480 DATA 207,141,249, 207, 
169,78, 141,255,267, 141 

2490 DATA 250,207, 76,78, 197, 
173,228, 267,208, 1 

DATA 96,76, 112, 194, 169, 
1,133, 264, 169, 65 

2510 DATA 133, 251, 169,3, 133, 
252, 175,249, 267, 133 

2526 DATA 253, 173,258, 
133, 254, 160,, 177,253, 

2536 DATA 261,192,240, 13,162, 
8,32, 163, 192, 188 

2549 DATA 9,177,253, 201, 162, 
208, 6,169, 1, 141 

2550 DATA 241,287, 94,72, 138, 
168, 104,269, 251, 268 

2560 DATA 229, 232,236, 64,3, 
208, 225, 165, 253, 141 

2576 DATA 249, 267, 165, 254, 
141, 256, 267, 262, 32, 233 

2580 DATA 198,262,268, 250, 
169, 8,141,228, 207,32 

2596 DATA 78,197, 169,0,133, 
264, 32,228, 255,201 

2460 DATA 13,208, 10, 189,0, 
141,241, 267, 169) 1 

2610 DATA 133,204, 96,261,32, 
208, 3,76, 224, 197 

2626 DATA 72,173, 248, 207,208, 
4,104, 76, 60,198 

2636 DATA 104, 261,82,268, 217, 
169, 1,133, 204, 173 

2640 DATA 196,3,261,2,248, 17, 
201, 14240,19 

2658 DATA 56, 173,107,3,237, 
44,3, 141,229,267 

2660 DATA 32,199, 193,32, 168, 
198, 76,224, 197,32 

2676 DATA 168, 198,56, 173,64, 
3,176,237, 167,3 

2686 DATA 141,229,267,32,199, 
198, 202, 268, 256, 32 - 

2690 DATA 126,193,174, 64,3, 
32,233, 198,22, 208 

2706 DATA 256, 74,224, 197,173, 
249, 267, 133,253, 173 

2716 DATA 256, 267,133, 254, 
169, 168, 133,251, 16,3 

2726 DATA 133,252, 168,9,177, 
251,145,253, 200, 264 

2736 DATA 107,3,268, 246, %, 
152, 72, 168,8,173, 

2749 DATA 249, 267,133,251, 
173, 256, 267, 133, 252,177 
2750 DATA 251,261, 162,249, 11, 

238, 249, 207, 173,249 
2766 DATA 267,268,3,238, 250, 


25 


75 


207, 104, 168, 96, 152 

2776 DATA 72,24, 175,256,207, 
105, 177, 176,7,173 

2789 DATA 249, 267,195,224, 
144,13, 206,249, 267,173 

2796 DATA 249, 267,261,255, 
208, 3,286, 250, 267, 104 

2806 DATA 168, %6, 173,247,267, 
261, 159, 268, 8, 169 

2810 DATA 1,141,251, 267,76, 
34,199, 238,246, 287 

2826 DATA 173,246, 
238, 247, 207, 96, 206 

2838 DATA 246,267, 173,246, 
207, 261, 255, 268, 3, 206 

2848 DATA 247,267,96,169,8, 
176, 166, 255, 32, 186 

2850 DATA 255,175, 64,3, 160,3, 
162, 65,32, 189 

2866 DATA 255,32, 166,199, 185, 
251, 133,253, 165,252 

2876 DATA 133,254,32,208, 199, 
169,253, 166,251, 164 

2886 DATA 252, 32,216,255, %, 
19,8, 176, 168,9 

2896 DATA 32,186,255, 173,64, 
3, 160,53, 162, 65 

2960 DATA 32,189,255, 149,9, 
174,249, 267, 172,250 

2916 DATA 207,32,213, 255, 169, 
32,141, 254,207, 141 

2928 DATA 249,267, 169, 78,141, 
250, 267,141, 255,267 

2936 DATA 169,32, 133,251,169, 
78,133, 252,32, 268 

2946 DATA 199, 165,251,141, 
24b, 267, 165, 252, 141, 247 

2950 DATA 207, 169, 102, 169,0, 
145,251, 96, 169,32 

2960 DATA 133,251, 169, 78,133, 
252, 169,8, 141,238 

2976 DATA 207, 168,177,251, 
201, 194, 248, 21, 261,197 

2986 DATA 248, 10,261, 102,240, 
6,32, 154, 192,76 

2996 DATA 180, 199, 169,1, 141, 
236, 207, 104, 104,96 

3000 DATA 166, , 152,141,238, 
207,177,251, 201, 197 

3018 DATA 248, 13,201, 102,208, 
3, 76,233, 199,32 

3028 DATA 154, 192,76,214,199, 
32,154, 192,96, 169 

3038 DATA 48, 133,252, 169,2, 
133, 253, 169, 6, 133 

304G DATA 144, 169,36, 133,251, 
169,251, 133, 187, 169 

3050 DATA 9,133, 188, 165, 253, 
133, 183, 169,8, 133 
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3060 DATA 186, 169, 96,133,185, 
32,213,243, 165,186 

3070 DATA 32, 186, 255, 165, 185, 
32,150,255, 164, 144 

3080 DATA 208, 68, 160, 6,132, 
251,32, 165,255, 166 

3090 DATA 252, 133,252, 164, 
144,208,53, 164,251, 136 

3100 DATA 208, 288, 144, 252,32, 
205, 189, 169, 32,32 

3116 DATA 216,255, 32,165,255, 
72,173, 142,2, 268 

3126 DATA 251, 104, 166, 144, 
208, 24,178,248, 6,32 

3138 DATA 216,255, 76,64, 266, 
169, 13,32, 218, 255 

‘3148 DATA 165, 197,201, 63,248, 
4,166, 4, 208, 190 

3150 DATA 32, 66,246, 96, 165, 
251,141, 226, 207, 185 

3168 DATA 252, 141,227,267, 
173,196,267, 248, 28, 169 

3176 DATA 266, 141,38,3, 169, 
264, 141,39,3, 169 

3186 DATA 127,141, 13,221,169, 
255, 141,3, 221, 169 

3198 DATA 6, 141, 1,221,76,171, 
206, 169, 4,170 

3200 DATA 168, 7,32, 186, 255, 
169,032, 189, 255 

3210 DATA 32,192,255,32,156, 
204,32, 151,204, 169 

3226 DATA 6, 141,197,207, 178, 
189, 215, 267, 157, 219 

3236 DATA 267,232,224, 4,268, 
245,32, 166,199, 169 

3240 DATA 1,141,208, 207, 141, 
211,207,173, 225, 207 

3250 DATA 240, 6,32,39, 264, 76, 
219, 208,32,39 

3260 DATA 264,32,23, 204,32, 
23,264, 169)0, 181 

3276 DATA 225,207, 141,199, 
267,141, 203, 207, 141, 205 

3286 DATA 207,162, 8,142, 266, 
207, 142, 202, 267, 168 

3290 DATA 8,177,251, 141,207, 
207,32, 154,192, 173 

DATA 267,267,261, 159, 

13,76, 147, 201, 261 


x 


2 
3316 DATA 102,268, 3,76,147, 
261,261, 197, 268, 3 


33 


DATA 76,147,261 ,24, 105, 
64,144, 34, 173,207 

3338 DATA 207, 261,268, 240, 
116, 261, 202, 246, 112,261 

3340 DATA 216, 246, 108, 261, 
204, 240, 164, 261, 195,248 

3356 DATA 100, 261,211,240, %6, 


v 
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201,196, 248, 92,76 

3360 DATA 241,200, 173,27, 
207,24, 165, 224, 176, 12 

3376 DATA 173,207,207, 24, 105, 
64,141, 267, 267,76 

3386 DATA 127,201, 173,207, 
207,201, 64, 268, 8, 169 

3390 DATA 96, 141,267, 267,76, 
127, 261,24, 165, 192 

3406 DATA 144,29, 173,207,207, 
24,105, 160, 144,12 

SAL DATA 173,267,267,24, 105, 
64,141,267, 207,76 

3426 DATA 127,261, 173,267, 
267,24, 185, 128,141,267 

‘3436 DATA 267,173,287, 207, 
157, 192, 206, 232, 169,32 

3446 DATA 157,192,266, 256, 
216,267,248, 11,76, 241 

3450 DATA 260,169, 1,141,202, 
207,76, 186,201,177 

3486 DATA 251,201,32,240, 19, 
198, 251, 165, 251, 201, 

3478 DATA 255, 268, 2,198,252, 
202, 240, 74,177,251 

3480 DATA 261,32,268,237, 138, 
268,3,76, 237,202 

3496 DATA 142,206, 267,173, 
192,266, 261, 32, 208,36 

3500 DATA 173,193, 206, 201,32, 
208,7,173, 194, 206 

3510 DATA 261,32, 240, 22, 162, 
1,206, 206, 267, 189 

3526 DATA 192,266, 202,157, 
192,206,236, 206,267, 248 

3538 DATA 209, 252,252, 76,215, 
201,174,206, 207, 189 

3540 DATA 192,266, 261,32,208, 
6, 206, 286, 207,76 

3550 DATA 232,261,162, 9,238, 
266, 207, 173, 202, 207 

3508 DATA 240,22, 173,206,207, 
208, 3, 76,237,262 

3570 DATA 173, 208, 267, 261,2, 
240,7,201,3, 240 

3586 DATA 3,76, 167, 202, 173, 
268,207, 208,3,76 

3598 DATA 167,262, 261, 1,208, 
104, 162,6, 189,192 

366 DATA 266, 261,32,268,9, 
232, 236, 206, 207, 208 

3416 DATA 243,76, 167,202, 142, 
200, 207, 76,67, 202 

3628 DATA 189,192, 266, 261,32, 
240, 9,232, 236, 206 

‘3630 DATA 267,208, 243,76, 167, 
202, 174, 266, 267, 199 

3440 DATA 192,266, 261,32,249, 
12,202, 236, 266, 267 


3450 DATA 208, 243, 206,266, 

7576, 202, 202, 142 

3460 DATA 261,267, 174,266, 
207, 189, 192, 266, 232, 157 

3476 DATA 192, 206, 262,262, 
236,201,207, 208, 242, 173 

3486 DATA 266,207, 205,210, 
267, 208, 3,76, 187,202 

3498 DATA 238, 286, 267, 174, 
201, 267,202, 76,79, 262 

3768 DATA 173,218, 267,56, 237, 
266,267, 72,173, 268 

3716 DATA 267,261,2,248,3, 
184,74, 72,164, 24 

3728 DATA 109, 269, 267, 178,76, 
178,22, 174, 209, 207 

3738 DATA 169,32,32, 216,255, 
202, 268, 248, 173,196 

‘3746 DATA 267,240, 42,189, 192, 
286,24, 165, 191,144 

3756 DATA 34, 189, 192, 206,24, 
105, 145, 144,17, 189 

3768 DATA 192,286, 24, 185, 159, 
144, 18, 189, 192, 206 

3776 DATA 56,233, 128,76, 228, 
202, 189, 192, 208, 24 

3786 DATA 105,32,76, 228, 202, 
189,192, 286,32, 210 

3796 DATA 255, 232,236, 266, 
287, 208, 197,32, 23, 204 

3808 DATA 238,205, 207,173, 
205, 207, 205, 212, 207, 208 

3818 DATA 3,76, 174,263,173, 
211, 267, 240, 17,32 

3828 DATA 23,204,238, 205,207, 
173,265, 267,265,212 

3830 DATA 267,208,3,76,174, 
283, 173, 202, 207, 208 

3848 DATA 20,173, 142,2,41,1, 
240, 10,32, 171 

3850 DATA 204, 261,32, 240,3, 
76,223,203, 76, 223 

3866 DATA 260, 173,247,207, 
261, 159, 248, 229, 281, 196 

3878 DATA 268,8,169,1,141, 
211, 207, 76, 166,263 

3880 DATA 201,211,288, 8, 169, 
141,211,207, 76 

3896 DATA 14,283, 281,195, 
208, 8,189,3, 141,208 

3900 DATA 287,76, 146,203,201, 
204, 208, 8, 169,0 

3918 DATA 141,268, 287, 76,166, 
263, 201, 218, 208, 8 

3928 DATA 169,2, 141, 268, 207, 
7h 166,263,281, 202 

3938 DATA 28,8, 169, 1,141, 
208, 267,76, 166,263 

3940 DATA 261,268, 208, 22, 169, 


1,141,199, 267,173 

3958 DATA 265, 267,265,212, 
207,240, 25,32, 23, 204 

3960 DATA 238, 205, 207, 76,133, 
203, 261, 197, 208, 8 

3970 DATA 169,1, 141, 203,207, 
74, 128, 263, 261, 162 

3988 DATA 240,244, 173,199, 
207, 208, 3, 76,25, 263 

3996 DATA 32,23, 204, 32,23, 
204, 32,49, 204, 32 

4900 DATA 23, 204,32, 23,204, 
173,203, 207,248, 61 

DATA 266,214, 267, 173, 
214, 207, 248, 21, 162,8 

4926 DATA 189,219,267, 157, 
215, 267,232,224, 4, 208 

4038 DATA 245, 169, 1,141,225, 
267,76, 188, 268, 173 

4048 DATA 196,207,240, 13, 169, 
202, 141,38,3, 169 

4958 DATA 241, 141,39,3, 76, 
244, 203, 32,231, 255, 
4980 DATA 173,226,267, 133, 
251, 173,227, 267; 133, 252 
4978 DATA 94,173,213, 207,248, 
18,32, 171,204,261 

4989 DATA 32,248,3, 76,223, 
263,32, 23, 204,32 

4090 DATA 23,264,76, 210,208, 
169, 13, 32,218, 255 

4100 DATA 173, 196,267,240, 5, 
169, 18,32,218, 255 

4119 DATA 96,173, 223,207,261, 
1,268, 95, 76,56 

4128 DATA 264, 173,223,207, 
21,2, 208, 85, 174, 224 

4130 DATA 207, 169,32,32,216, 
255, 202, 208, 248, 169 

4140 DATA 45,32, 210,255, 169, 
32, 32,218,255, 162 

4150 DATA 3,189,215, 267,261, 
48, 208, 3,202,208 

4106 DATA 244,189, 215, 207,32, 
216, 255,202, 208, 247 

4176 DATA 238,214,267,173, 
216,207, 261, 58, 248, 23, 

4180 DATA 169,48, 141,216,207, 
238, 217, 207, 173,217 

4190 DATA 287,261,58,208,8, 
169,48, 141,217,207 

4260 DATA 238,218, 287, 169, 32, 
32,210, 255, 169,45 

4210 DATA 32,210,255, 32,23, 
204, 96,32, 23,204 

4220 DATA 76, 223,203, 162,4, 
32,261,255, 32, 183 

4236 DATA 255, 41, 128,249,7, 
169,5, 141,197,207 > 
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CTRL C: Centralise text online. 
A line is thrown, and sub- 
sequent lines are printed with 
the text centralised on the line. 
This would normally be used to 
print headings etc. 

CTRL B: Beginning marker. 
This sets the beginning of the 
block for saving, printing and 
word counting. More than one 
begin marker may be used, but 
only the first will be 
recognised. 

CTRL E: End marker. This sets 
the end of the block for saving, 
printing, and word counting 
More than one end marker 
may be used, but only the first 
will be recognised. If no end 
marker is used, the action will 
continue until the end of the 
text marker (3) is reached. 

2, SAVE DOCUMENT 

This option allows you to save 
any orall of the text currently in 
the memory to disk. The text 
saved is from the first begin- 
ning marker (B) to the first end 
marker (E or #4), and the save 
routine gives an exit option if 
these markers have not been 
set up. A filename is then 
requested, which can be up to 
12 characters long. Wild card 
filenames (i.e. those containing 
the characters *, ? or .) are not 
acceptable. On saving, the 
suffix .TXT is added to the disk 
file name to assist in identi- 
fication of text files. If the 
markers are incorrectly set, if 
the disk drive is not available, 
or if the file exists, an error 
message is printed, otherwise a 
successful save message is dis- 
played, and pressing SPACE 
causes a return to the main 
menu 

3. LOAD DOCUMENT 

This option allows you toloada 
text file from disk into memory 
for editing or printing. Loading 
will start from the current 
cursor position, and an exit 
option is given if this has not 
been set up. A filename is then 
requested, which can be up to 
12 characters long. Wild card 
filenames are not acceptable. 
The routine will then search for 
a file of this name with the 
suffix .TXT, and if a load error 
occurs, an error message is dis- 
played, otherwise a successful 
load message is displayed and 
pressing SPACE causes a return 
to the main menu. As loading 
commences from the cursor 
position, several files may be 
chained into one in memory. 
When loading is complete, the 
cursor is set to the start of the 
text memory. 


4. PRINT DOCUMENT 
This option allows you to print 
the current document in 
memory to a printer (device 
#4). The text is printed from 
the first beginning marker (B) 
to the first end marker (E or). 
The text is automatically for- 
matted and line spaced as 
required during printing, with 
page throws generated when a 
page is filled. Formatting and 
page feed instructions are con- 
tained in control characters 
within the text (see editor 
functions above), and other 
information about the printout 
format is requested before the 
document is printed. The 
prompts given are as follows: 
Left and right margins: The 
normal printer width of 80 
characters is assumed, but by 
selecting margins, borders for 
binding the document, etc. can 
be set up, as well as moving the 
text column across the page as 
required 

Page hold: This allows a pause 
for convenience, or to insert a 
new sheet of paper in a 
friction-feed printer after the 
printing of each page is com- 
pleted. Pressing SPACE will 
continue the print, and 
pressing F7 will terminate the 
print. 

Page numbers: Pages can be 
un-numbered, numbered at 
the top, or numbered at the 
bottom, and the type required 
is selected from the menu. If 
numbers are required, the 
number of the first page is 
requested, and this should be 
in the range 0-900. 

Page length: The number of 
lines per page will vary 
depending on the size of paper 
used. The number given is the 
full paper length, though a 
margin of five blank lines is left 
at the top and bottom of each 
page. If page numbering is 
selected, the numbers are 
printed in the middle of the 
required margin, and centra- 
lised with respect to the text 
Number of copies: Up to nine 
copies of the document can be 
printed at one time, and the 
number required is requested. 
When all the prompts have 
been answered, the printer 
should be turned on and the 
Paper set up correctly (the 
program prints a demon- 
stration sketch for a tractor- 
feed printer such as the 1525). 
Pressing SPACE will allow 
printing to commence. 
Holding down the SHIFT or 
SHIFT LOCK keys during 


4246 DATA 104, 164,96, 169, 9, 
141,33, 208, 32, 228 

4250 DATA 255,261,32,249,9, 
201, 136, 208, 245, 169 

4266 DATA 2, 141,32, 268,72, 
169, 1, 141,33, 208 

4270 DATA 104,96,32,202,241, 
72, 189, 16,44, 13 

4286 DATA 221,240, 251, 104, 
141, 1,221,24,96 

4290 REM $82 END OF DATA #84 


18 REM 888 WORDPROK-WORD PRO 
CESSOR 448 

26 REM 882 BY IAIN MURRAY 
(C) 1986 a8 

3@ REN 88% FOR "YOUR COMHODO 
REMESPCATENE 

35 REN 88% WORD PROCESSOR 
WITHESPCS1398 

36 REM 48 SCREEN EDITOR, 
ANDESPCAI848 

37 REM $84 PRINTOUT TO COMKO 
DORELSPC31¥8% 

38 REM 884 OR CENTRONICS PRI 
NTERCSPCS1 #03 

40 POKE 53280, 6:POKE $3281, 1 
REM # SCREEN COLOURS 

42. IF PEEK(49152)=169 THEN 70 

45 PRINT CHR6(142) ; (CLEAR, 
BLACK, DOWNS, RIGHT15, RVSON, 
SPCIWORDPROK(SPC, RVSOFF]" 

50 PRINT=*LDOWNS, RIGHT6] 
LOADING MACHINE CODE SECT 
TON 

55 PRINT *CDOWNS, RIGHTS, 
RVSON, SPCIPLEASEISPC2] 
WAITESPC, RVSOFF]* 

466 LOAD *PROKCODE™,8, 1 

76 POKE 56,78:REM # MEMORY 
TOP 2 

90 PRINT *[CLEARI* 

168 SF=49152:CL=49478 
sREM t SCREEN FILL AND 
COLOUR FILL ROUTINES 

116 DE=49528: 1N=49667 
REM # DELETE AND INSERT 
ROUTINES 

126 W0=49688:06=49773, 
REM 4 WORD COUNT AND CHA 
RACTER PROCESSING 

124 $¥=50995:LD=51937 
2REM § SAVE AND LOAD 

125 FB=51116:FE=51152 
sREM t FIND BEGIN AND END 
MARKERS 


126 TR=56656:REM # SEARCH/RE 
PLACE ROUTINE 
127 DR=51181:REM # DISK DIRE 


CTORY 

128 PO=51366:REM $ PRINT ROU 
TINE. 

130 8S=2001 =GS: TP=SS 


+VW=53230:DV=3 
148 POKE 53231, 


POKE 53248,6 


+POKE 53249, 1:REM  SCRN 
& TEXT CLRS 


147 POKE 650, :POKE 53229, 255 
150 NO$=*1234567890123456789 
612345678961234567896" 
166 ET$=*{CLEAR, DOWN, RIGHTI3, 
RVSON, SEIDITORESPC, SF 
UNCTIONSCRVSOFF, DOWN 

*+CHRS (13) 

178 X18=* {DOWN2, RIGHT2I1) 
(SPC, SIINMEDIATELSPC, SC] 
OMHANDS* +CHRS (13) 

186 X2$=*{RIGHT412) (9PC, $C] 
ONTROLCSPC, SCIHARACTERS 
SPC, SWIITHINCSPC, ST) 
EXT*#CHRS(13) 

198 X3$=" CDOWN2, RIGHT213) 
(SPC, SSIEARCH/ {SRIEPLACE 
(SPC, SFIACILITYCSPC, SC) 
OMMANDS"+CHRS (13) 

195 XX$=" DOWN, RIGHTS, $01 
BIAIN THE FOLLOWING BY 
PRESSINELSPC, RIGHT7, 
VSON, SC, ST, SR, SL, RVSOFF, 
SPCIAND THE LETTER :* 

299 /REM 488 TITLES tt 

306 GOSUB 16500:PRINT CHRE(1 
4)CHRS (8) CHRS (144) 

316 SPS="(SPC35]":SPS=SPS+SPS 

398 FOR 1=19990 TO 19999 
SPOKE 1, 255:NEXT 

408 POKE 26009, 162 


430 NR=TPSAD=53238 
260SUB 19080 

499 REM $84 MAIN MENU 388 

506 PRINT *CCLEAR, DOWN, 
RIGHT14, RVSON, SPC2, SW, SO, 
$R,$D, SP, 8R, 80, Sk, SPC2, 
RVSOFF1":REM # *WORDPROK* 

505 PRINT *CDOWN, RIGHTL4, 
RYSON, SPC, SM, SA, S1, SN, SPC 
(5M, SE, $N, SU, SPC, RVSOFF]" 
REM # "MAIN MENU" 

51 PRINT *CDOWN2, RIGHT11]1) 
(PC, SEIDITESPC, $0) 


OCUMENT* 
526 PRINT *CDOWN,RIGHT1172) 
SPC, SS)AVELSPC, SD) 

OCUNENT* 

‘S3@ PRINT "CDOWN, RIGHT1113) 
{8PC, SLIOADESPC, $01 
OCUMENT* 

546 PRINT "CDOWN,RIGHT11]4) 
SPC, SPIRINTLSPC, $D) 
OCUMENT" 

556 PRINT *CDOWN,RIGHTI15) 
(SPC, SDIISKCSPC, SFIILE 
(SPC, SHJANDLING* 

566 PRINT “CDOWN,RIGHT11]6) 
[SPC, SWIORDESPC, SCJOUNT* 

570 PRINT *COOWN, RIGHTI17) 
TSPC, SRIESTARTESPC, SP) 

ROGRAM* 

BO PRINT *CDOWN,RIGHTI128) 
(SPC, SEIXITESPC, SP2ROGRAN* 

596 PRINT *{DOWN, RIGHTS, SK) 

HICH DO YOU REQUIRE (1-8) 
2ESPCS, LEFT33"; 

600 GET AS:A=VAL(AS) 

SIF ACL OR ADB THEN 668 

619 ON A GOTO 1008, 201 

4860, 5006, 7000, 8000, 900 

999 REM 448 EDIT DOCUMENT 


:POKE 264, 8:REN # SCREEN 
COLOUR FILL 

1018 GOSUB 15000 

1070 SYS SF:REM % SCREEN FILL 

1986 SYS C6:REM $ ENTER MACH 
INE CODE CHARACTER GET 

ROUTINE 

1086 POKE 204,1:REM  CRSR 
OFF 

1696 IF PEEK(53240)=1 THEN 6 
OSUB 16006:60TO 500 
REM $ MENU REQUEST 

1106 TF PEEK(53240)=2 THEN 6 
OSUB 14000:60TO 12600 
REM $ HELP REQUEST 

1110 IF PEEK(53246)=4 THEN 6 
OSUB 16800:60T0 1586 
REM & SEARCH/REPLACE REQ 
UesT 

1119 REM & EXIT CAUSED BY 
MEMORY FULL & 

1128 GOSUB 16000:PRINT * 
CLEAR, DOWN2, RIGHTI4, 
RVSON, SM, SE, SM, $0, SR, $Y, 
SPC, SF, SU, $L21! (RVSOFF]" 

1130 PRINT "CDOWN2, RIGHTS, SY] 
OU HAVE NOW FILLED THE 
NENORY!* 

1140 GOSUB 13088:60T0 580 


MNS 


1318 PRINT "CCLEAR, DOWNS, 

RIGHT1O,SRIEACHED END OF 
TEXT" 

1499 REM $88 SEARCH/REPLACE 

ut 

150 PRINT "CCLEAR, DOWNS, 
RIGHT9, RVSON, SSJEARCH/(SR] 
EPLACELSPC, STJEXTCRVSOFF 1" 

1518 PRINT *CDOWN2,RIGHTA, SY] 
OU CAN:* 

1528 PRINT "CDOWN,RIGHT6]1) 
USPC,SSIEARCH FOR TEXT 

1538 PRINT "CDOWN, RIGHT6]2) 
(SPC, SSJEARCH FOR TEXT 

AND REPLACE* 

1549 PRINT "CDOWN,RIGHT6]3) 
{SPC,SRIETURN TO EDITOR" 
1550 PRINT "CDOWN2, RIGHTS, SW) 
HICH DO YOU REQUIRE (1-3) 

2; 

1566 GET AS:A=VAL.(AS) 
sIF ACL OR ADS THEN 1568 

1565 PRINT AS: IF A=3 THEN 19 
6 

1570 PRINT "{DOWN2, RIGHT2, $6) 
IVE STRING TO BE SEARCHED 
FOR : "sINPUT "CRIGHT2]"; 
SR$:SR=LEN (SRS) 

1580 IF SR¢2 OR SR>40 THEN P 
RINT *CDOWN, RIGHT2, 817 
NVALID STRING! *:GOTO 1578 

1599 FOR I=1_ 10 SR 
SFCASC (MIDS SRS, 1,1)) 

1594 IF FO)218 THEN 1597 

1595 IF FC)192 THEN FC=FC-128 
16070 1597 

1396 IF FC>63 THEN FC=1 

1597 POKE 832+1,FC 

1598 NEXT 1 

1688 POKE 832,SR:POKE 53252, 0 

1610 IF AL THEN 1688 

1626 PRINT "CDOWN2,RIGHT2, $6] 
IVE STRING FOR REPLACEMEN 
T INPUT "CRIGHT2]";RPS 
tRPSLEN (RPS) 

1638 IF RPC2 OR RP>4# THEN P 
RINT "CDOWN, RIGHT2, SI) 
NVALID STRING!":60TO 1620 

164@ FOR I=1 TO RP 
SPCSASC(NIDSIRPS,1,1)) 

1644 IF FC>218 THEN 1647 

1645 IF FCD192 THEN FC=FC-128 
sG0TO 1647 

1646 IF FC>63 THEN FC=FC-64 

1647 POKE 875+1,FC 

1648 NEXT T 

165 POKE 875,RP:POKE 53232, 1 

1666 POKE 874,08: IF SRORP THE 
N POKE 874,1 


C-b4 


1676 IF SR=RP THEN POKE 874,2 

1680 PRINT *{CLEARI" 
sPRINT *CDQWN2,RIGHT!3, 8R] 
EADY TO SEARCH" 

1696 GOSUB 13860:PRINT * 
COOWN2, RIGHTI4, RVSON, SPC, 
$8,$E, 8A, SR, SC,SH,S1,SN, 
$6, PC, RVSOFF" 

1760 GOSUB 16506:60SUB 15080 
SPRINT "THOME, BLUE, RVSON, 
SPC, RVSOFF, BLACK, SPC, SE, 
$D,$1,$T,S0,$R) (S8,SE,SA, 
$R,8C, $HI/LR, SE, SP,SL,SA, 
$C,SE] [SM,50, SD, SE,$PC]* 

1705 PRINT *CHOME, DOWN24]*; 
HIF @=2 THEN 1728 

1716 PRINT *CBLUE, RVSON, SPCS, 
SOFF., BLACK, SPC, 5, SP, SA, 
SC, SE, PC, RVSON, BLUEJ=($N] 
EXTESPC7, RVSOFF, BLACK, SR, 
SE,ST, SU, SR, SN, RVSON, BLUE 
={SEIDITESPC, BLACK, HOME]" 
26070 1748 

1726 PRINT *CBLUE, RVSON, SPC2, 
RVSOFF, BLACK, SPC, 88, SP, SA, 
SC, SE, $PC, RVSON, BLUEJ=(SN) 
EXTESPC2, RVSOFF, BLACK, SR, 
RVSON, BLUEI=(SRIEPLACE 
{SPC2, RVSOFF, BLACK, SR, SE, 
ST, SU, SR, SN, RVSON, BLUEJ= 
(SEIDITEBLACK, HOME]* 

1740 SYS 7Rs1F PEEK(53233)=8 

THEN 1688 

1750 GOSUB 14000:PRINT * 
CLEAR, BLACK, DOWNS, 
RIGHTE1, SRIEACHED END OF 


1999 REM $88 SAVE DOCUMENT 
rn) 

‘2006 PRINT "{CLEAR]"; 
CHR$(142) ; *CDOWNS, RIGHT13, 
RVSONISAVE DOCUMENT 
CRVSOFF]" 

2016 PRINT *CDOWN2, RIGHT41D0 


YOU WISH TO SAVE TEXT 
(YIN) 2" 
128 GET AS: IF As: 
158 
2030 IF ASC>"Y" THEN 2026 
2048 PRINT "CDOWN2, RIGHT4) 
HAVE YOU SET THECSPC, 
RVSON)BERVSOFFJEGINNING 
ANDESPC, RVSONJECRVSOFF 
ND" 
2056 PRINT *CRIGHTSINARKERS 
FOR THE TEXT TO BE SAVED" 


‘2068 PRINT "CRIGHT4I(Y/N) 
eo 


THEN 2 


2070-GET AS: IF As=" 
156 

2080 IF AS<>*Y* THEN 2078 

2096 GOSUB 18600:60SUB 13090 

2180 PRINT *{DOWN, RIGHTI6, 
RVSON, SPCISAVINGLSPC, 
RSOFF]" 

2116 SYS SV 

2126 IF PEEK(53222)=8 THEN 2 
146 

2138 PRINT "CUP, RIGHT4) 
MARKERS NOT POSITIONED 
CORRECTLY" 
26070 2150 

2140 GOSUB 14909: 

2158 PRINT "ECLEARY 
26070 500 

2999 REM 848 LOAD DOCUMENT 
mt 

360 PRINT *{CLEARD*s 
CHRS(142) ; *CDOWN3, RIGHTS, 
RVSONILOAD DOCUMENT 
[RVSOFFI" 

3018 PRINT *CDOWN2, RIGHT4ID0 
YOU WISH TO LOAD TEXT 
(Y/N) 2* 

3020 GET AS: IF AS=*N* THEN 3 

976 
3030 IF ASC>*Y" THEN 3020 
‘3040 PRINT *CDOWN2, RIGHTA] 
HAVE YOU SET THE CURSOR 
10 THE * 

3041 PRINT "CRIGHTAISTART 
POSITION OF THE LOAD (¥/ 

n> 

3042 GET AS:IF AS=*N* THEN 3 

678 
3043 IF ASCO"Y" THEN 3042 
3044 GOSUB 19008:G0SUB 13098 
3045 PRINT "{DOWN, RIGHTIS, 
RVSON, SPCILOADINEESPC, 
RVSOFF]" 
3056 SYS LD 
3066 GOSUB 14900:GOSUB 13100 
3076 PRINT "ECLEAR]";CHRS (14) 
16070 560 
3999 REM 884 PRINTOUT OF TEX 
Tat 

4000 PRINT "ECLEAR, DOWNS, 
RIGHT13, RVSON, SPIRINTCSPC, 
SOIUTESPC, STIEXTCRVSOFF]* 

4010 PRINT *CDOWN2, RIGHTS, 80] 
0 YOU WISH TO PRINT TEXT 
(ESYI/E8N1) 2 *; 

4020 GET AS: IF AS=*N" THEN 5 

6 

4025 IF AS<)"Y" THEN 4020 

4038 PRINT *ESY]* 

SPRINT "CDOWN, RIGHTS, SH) 


THEN 2 


printing will pause the 
printout. Pressing SPACE will 
restart printing, and pressing F7 
will terminate it. A message will 
appear when printing is 
complete and pressing SPACE 
will cause a return to the main 


menu 
5. DISK FILE HANDLING 

This option allows you to 
perform some extra operations 
on the current disk. These are 
as follows: 

1. Disk Directory: A directory 
of the current disk is printed on 
the screen. Pressing SHIFT will 
pause the listing. The 
document in memory is not 
affected. 

2. File Rename: A disk file may 
be renamed. The current and 
new filenames are requested, 
and the renaming procedure is 
carried out. Filenames may be 
up to 16 characters long. 

3. ile Delete: A disk file may be 
scratched from the disk. The 
filename is requested, and the 
delete procedure is carried 
out. The filename may be up to 
16 characters long, and wild 
card filenames are acceptable. 
4. Exit: This causes a return to 
the main menu. 

6. WORD COUNT 

This allows the number of 
words in the current document 
to be counted. Words are 
counted from the first begin- 
ning marker (B) to the first end 
marker (E or %), and an exit 
option is given if these have not 
been set up. The number of 
words in this block is then dis- 
played, and pressing SPACE 
will cause a return to the main 
menu. 

7. RESTART 

This option causes restart, and 
the document currently 
memory is lost. A return is 
made to the main menu. 

8. EXIT 

This option causes exit fromthe 
program, and returns to Basic 
control. 


Limitations of the 
Program 


a) Editor: The word split/ 
unsplit option works by forcing, 
a line feed if a space is 
encountered in the last 10 
columns of the screen width 
Thus if a long word occurs at 
the end of aline, it may be split 
between lines. 

b) Device availability trapping 
If the load, save, disk directory 
or printout routines are 


AVE YOU SET THECSPC,RVSON, 
SB,RVSOFFIEGINNING AND 
SPC, RVSON, SE, RVSOFFIND* 
14931 PRINT "CRIGHT4]MARKERS 
FOR THE TEXT TO BE PRINT 
ED" 
4932 PRINT "CRIGHTAI ({SY1/ 


4934 IF ASC>*Y" THEN 4033 

4935 PRINT *CSY,CLEAR]" 

4948 PRINT "CDOWN2, RIGHTS, 6) 
IVE WIDTH OF LEFT HAND 
NARGIN" 

4045 INPUT "CRIGHT#2 (1-36) 

"SLNS:LM=VAL (LMS) 


4050 IF LNC1 OR LMD3@ OR LM 
DINT(LH) THEN PRINT * 
DOWN, RIGHTS, STINVALID 
(SPC, SNJUMBER!":G0TO 4046 

4052 POKE 53261, LM 

4955 PRINT "CDOWN2, RIGHT4, 96] 
IVE WIDTH OF RIGHT HAND 
MARGIN" 

4968 INPUT *CRIGHTA](1-30) 

"pRMS:RM=VAL (RMS) 

4065 IF RNCL OR RMDSB OR RNC 
DINT(RN) THEN PRINT * 
DOWN, RIGHT4, STINVALID 
{SPC, SNIUMBER!*:GOTO 4255 

4067 POKE 53262, 80-LH-RM 

4976 TL=80-LN-RM 

4686 PRINT *CDOWN2, RIGHTS, SD] 
0 YOU REQUIRE A HOLD AFTE 
R EACH* 

4981 PRINT "CRIGHTAIPRINTED 

PAGE ({SYI/ESN)) ? "5 

4082 POKE 53205, 0:GET AS 
tI AS=*Y* THEN POKE 5326 
S,1:PRINT *CSY]*:GOTO 4085 

4083 IF ASC*NY THEN 4082 

4984 PRINT "{SN]* 

4085 PRINT *CCLEAR, DOWNS, 
RIGHTS, SPIAGE NUMBERING 

TYPES AVAILABLE :* 

4986 PRINT *CDOWN2,RIGHTS]1) 
[SPC,SNJO PAGE NUMBERS* 

4087 PRINT "CDOWN, RIGHTAI2) 
[SPC, SPIAGE NUMBERS AT 

TOP OF PAGE* 

4988 PRINT "CDOWN, RIGHT4]3) 

USPC, SPIAGE NUMBERS AT 
FOOT OF PAGE" 

4089 PRINT *LDOWN2, RIGHTS, SW) 

HICH DO YOU REQUIRE (1-3) 
7% 


4096 GET 


VAL (AS) 


sIF ACL OR ADS THEN 4090 
4991 PRINT AS:POKE 53215, A-1 
tIF Az1 THEN 4156 
4108 PRINT *CDOWN2, RIGHTS, $6) 
IVE NUMBER OF FIRST PAGE" 
INPUT "CRIGHT#] (1-968) 
*;PC$:PC=VAL (PCS) 
4106 IF PC=6 OR PC>980 OR PC 
QINT(PC) THEN 4108 
4107 IF PC<100 THEN PCS= 
PC$:IF PC(1@ THEN PCS=" 
+°C$ 

4108 FOR I=1 TO 3 
rIF MIDS(PCS,1, 
10¢"6" OR MIDS(PCS,1, 
1089" THEN 4115 

4169 NEXT 

4116 IF PCB AND PC<901. THEN 
4128 

4115 PRINT *CDOWN, RIGHTS, S12 
NVALIDESPC, SNJUMBER! !* 
26070 41 

4126 FOR I=1 T0 3 

4130 POKE 5320741, 
ASC(MIDS (PC$, 4-1, 1)) :NEXT 

4148 POKE 53216, INT((BO-LH-R 
1)/2)4LM-2 

4150 PRINT "CLEAR, DOWNS, 
RIGHTS, SHJOW MANY LINES 
PER PAGE" 

4155 PRINT *CRIGHTS] 
(NORMALLY 65) * 

4160 INPUT AS:A=VAL(AS) 
SIF ACLS OR A100 OR ACT 
NT(A) THEN 4158 

4165 POKE 53204,A-9 

4170 PRINT *CDOWN2, RIGHTS, SH] 
OW MANY COPIES DO YOU REQ 
UIRECSPC1O} (1-9) 2 "5 

4100 GET AS:CI=VAL(AS) 
SIF CICL THEN 4186 

4182 PRINT AS 

4185 POKE 53206, C1 
#POKE 53199, #:POKE 33196,8 

4196 PRINT "CLEAR, DOWNS, 
RIGHT4, SYJOU CAN PRINT 
To" 

4491 PRINT "CDOWN, RIGHTAI1) 
TSPC, SCIOMMODORE PRINTER 
({SDIEVICE 4)" 

4192 PRINT *CDOWN, RIGHT412) 
USPC, SCIENTRONICS PRINTER" 

4193 PRINT "CDOWN3, RIGHT4, SH 
HICH DO YOU REQUIRE (1/2) 
2; 

4194 GET ASIF ASC>"1" AND A 
$¢"2" THEN 4194 

4195 POKE 53188, VAL(AS)-1 


alg 


:PRINT AS 

4260 PRINT "CCLEAR, DOWN2, 
RIGHTA, SEINSURE PRINTER 
1S SWITCHED ON" 

4210 PRINT *CDOWN, RIGHTSJAND 
POSITION PAPER AT FOLD 


4215 IF AS="2" THEN PRINT 
16070 4266 

4220 PRINT "CDOWN, RIGHT4, CB, 
RVSONJOLSPC380" 

4230 PRINT "CRIGHT4, RVSON) 


4248 PRINT *CRIGHT4, RVSONIO 
BLACK, SPC, C4, SPC, BLACK, 
$PC, C8,$PC2710" 

4250 PRINT "{RIGHT4, RVSON, C4, 
C+, BLACK, SPC, C4, SPC, BLACK, 
SPC, C4,C+28, BLACK]* 

4260 PRINT *CDOWN,RIGHT2, SP 
RESSLSPC, RVSON, SPC, $5, SP, 
$A, SC, SE) CRVSOFF, $PCITO 
CONMENCE PRINTING 3" 
260SUB 13628 

4278 PRINT "{CLEAR, BLACK, 
DOWNS, RIGHTS, SPIRESSTSPC, 
VSON, 8S, SH, SI, SF, ST, 
RVSOFF,SPCITO INTERRUPT 
PRINTING® 

4275 PRINT “CWHITE, RIGHTI1, 
RVSON, SPC, SP, SR, 1, SN, ST, 
$1,8N, 861 (SP,SA, SU, 85,SE, 
80, SPC, RVSOFF* 

4288 PRINT *CBLACK, DONN2, 
RIGHTS, RVSON, SPC, SP, SR, 
51,8N, ST,S1, N) 6, SPC, 
RYSOFF* 

4285 PRINT *CWHITE, $PCS, SP 
RESSLSPC, RVSON, $PC, $5, SP, 
SA,SC,SE,SPC,RVSOFF, SPC, 
SPIRESSISPC, RVSON, SPCIF7 
(SPC, RVSOFF" 

4287 PRINT *(SPC6) 

TO CONTINUECSPCB? 
TO ABANDONEBLACK2" 

4290 SYS PO 

4292 POKE 53288, 6 

4295. IF PEEK(S3189)<)5 THEN 
4300 

4297 PRINT "CCLEAR, DOWNS, 
RIGHT9, SPIRINTER NOT AVAL 
LABLE! [DOWNS]":G0SUB 13806 
:60TD 566 

IF PEEK(S3222)=8 THEN 4 
400 

4310 PRINT "CLEAR, DOWNS, 
RIGHT4, SHIARKERS NOT POST 


430 


TIONED CORRECTLY! CDOWNS]* 
4326 GOSUB 13888:60T0 580 
4490 PRINT *CCLEAR, DOWNS, 

RIGHT19, RVSON, SPC, SP, SR, 

$1,8N,ST,S1, SN, $6,5°C, SC, 

$0, SH, SP,SL, SE, ST, SE, SD, 

SPC, RVSOFF, DOWNS" 

4416 GOSUB 13600:60T0 500 

4999 REM 48 DISK HANDLING 
ROUTINES 448 

5009 PRINT *ECLEAR, DOWNS, 
RIGHT10, RVSON, SDIISKISPC, 
SF JILECSPC, SHJANDLING 
[RVSOFF]*" 

5056 PRINT *CDOWN2, RIGHTA11) 
(SPC, SD1ISKESPC, $0} 
IRECTORY* 

5066 PRINT *CDOWN,RIGHT#12) 
[SPC SRIENANE ALSPC, SF 
Ile" 

5070 PRINT *CDOWN, RIGHT4I3) 
(SPC, SDJELETE ALSPC, SF) 
le" 

5090 PRINT *CDOWN, RIGHTAI4) 
(SPC, SRIETURN TOESPC, SMI 
AINCSPC, SHIENU" 

5186 PRINT *CDOWN2, RIGHT4, SW 
HICH DO YOU REQUIRE (1-4) 
” 

5110 GET L(A) 
tIF ACL OR AD4 THEN S116 

5126 ON A GOTO 5266,5500, 
5700,508 

5199 REM #8 DISK DIRECTORY 
oy 

5208 PRINT "ECLEARI"; 
CHRS(142) PRINT "CDOWN2, 
SPC4IPRESSTSPC, RVSONI 
SHIFTERVSOFF, SPCITO PAUSE 
DIRECTORYEDOWN2* 

5216 SYS DR 

5228 GOSUB 13109 

5236 PRINT *CCLEARI*;CHRS(14) 
16070 508 

5499 REM ¥% RENAME A FILE 


u 

5506 PRINT "[CLEAR*; 
CHRS (142) 

5510 PRINT "CDOWN2, RIGHT4] 
GIVE PRESENT FILENAME :* 

5526 PRINT "DOWN, RIGHTS) 
1234567898123456" 

S539 INPUT "CRIGHTA]";NIS 
NLSLEN(NIS) 

5546 IF N1¢2 OR NID16 THEN P 
RINT "CDOWN, RIGHTS? 
INVALID FILENAME! !* 
16070 $516 


ns aa * 


5550 PRINT *{DOWN2, RIGHT4] 
GIVE NEW FILENARE :* 

5566 PRINT *CDOWN, RIGHTS) 
1234567890123456" 

5576 INPUT "CRIGHTA]"; N26 
2NZSLEN(N2$) 

5588 IF N2C2 OR N2)16 THEN P 
RINT *CDOWN, RIGHTS] 
INVALID FILENAME! !* 

26070 5550 

5596 PRINT *CDOWN2,RIGHTIS, 
RVSON, SPCIRENAMINGESPC, 
RVSOFF]* 

5595 FHS=NIS 

53600 OPEN 15,8,15,°R 
2 TAN2S+*= "NI: CLOSE 15 

5618 OPEN 15,8,15 
+ INPUTAI5, ER, ERS:CLOSE 15 

5620 IF ERD19 THEN PRINT * 
CLEAR, DOWNS, RIGHT72FILE 
ERROR!*:GOSUB 14048 

5630 GOSUB 13180:PRINT * 
CLEAR"; CHRS(14) :G0TO 566) 

5699 REN $8 DELETE FILE 18 

5760 PRINT "ECLEAR]"; 
CHRS(142) 

S716 PRINT "CDOWN2, RIGHT4) 
GIVE NAME OF FILE TO BE 
DELETED :* 

5728 PRINT *CDOWN, RIGHTS 
1234567896123456" 

S730 INPUT "ERIGHT4)*;NIS 
INLSLEN(NLS) 

S740 IF NIC2 OR N1D16 THEN P 
RINT *CDOWN, RIGHTS] 
INVALID FILENARE! !* 

26070 5718 

5750 PRINT *[DOWN2,RIGHT15, 
RVSON, SPCIDELETINGLSPC, 
RSOFF)" 

5760 OPEN 15, 8,15, 
CLOSE 15 

5770 OPEN 15,8,15 
SINPUT#15, ER, ERS:CLOSE 15 

5786 IF ER)19 THEN PRINT * 
DOWN, RIGHTIOJFILE ERROR!* 
sG0SUB 14940 

5796 GOSUB 13100:PRINT * 
CLEAR?" ;CHRS(14):60T0 S89 

5926 GOSUB 13600:G0T0 500 

4999 REM 888 WORD COUNT 48 

7808 PRINT *{CLEAR,DOKN2, 
RIGHT14, RVSON, SW, 80, SR, $0) 
{3C, $0, $U, SK, ST, RVSOFF] 

7018 PRINT *CDOWN2, RIGHTS, SHI 
AVE YOU SET THECSPC,RVSON, 
SB, RVSOFFIEGINNING AND 
SPC, RVSON, SE, RUSOFF IND" 


7026 PRINT *CRIGHTSIMARKERS 
FOR THE TEXT TO BE COUNT 
ep" 

7830 PRINT "CRIGHTSI{{SY1/ 
(ann) 2" 

7040 GET AS:IF AS="N" THEN 1 


7058 1F AS<)*Y" THEN 7049 

7116 PRINT "CDOWN3, $PC3, 87] 
HIS TEXT CONTAINS*; 

7128 SYS WCsREM ¢ DO WORD 
COUNT 

7136 PRINT PEEK (53236) +(2568 
PEEK (53237) *WORDS, * 

7148 PRINT *CDOWN3, $PC3, SP 
RESSLSPC, RVSON, SPC, 85, SP, 
SA,SC,E] CRVSOFF,SPCITO 
CONTINUE :* 

7150 GET A$: 1F AS<)* * THEN 
1156 

7166 GOTO 508 

7999 REN 88% RESTART PROGRAM 
at 

8000 PRINT "{CLEAR, DOWN2, 
RIGHT14, RVSON, SR, SE, SS, ST, 
SA, SR, ST, RVSOFE]" 

8019 PRINT *CDOWN3, RIGHTS, SD] 
(0 YOU WISH TO RESTART ( 
tsya/t8N)) 2" 

8020 GET AS: IF AS: 
6 

8030 IF AS<>*Y" THEN 8628 

8049 GOTO 198 

8999 REN $18 EXIT PROGRAM 

mt 

9000 PRINT "CLEAR, DOWN2, 
RIGHT18, RVSON, SE, SX,51,ST, 
RVSOFF]" 

9018 PRINT *CDOWN3, RIGHTS, 8D 
0 YOU WISH TO EXIT (tSY1/ 
(SN) 2" 

9020 GET AS: IF AS="N" THEN 5 
6 

9036 IF AS<)*Y" THEN 9620 

9048 PRINT CHRS (147) CHRS(9)C 
HRS (142) *CDOWN28, SPC2, 
LEFTSI*; 

9058 POKE 631,32sPOKE 632,26 
SPOKE 198,2 

9068 END 

9999 REN 88% SET UP DOUBLE 
BYTE IN MERORY 483 

10006 HB=INT(NR/256) 

NR>(HB4256) 

19619 POKE AD,LB:POKE AD+, HB 

TURN 

19499 REM 88% GET NUMBER FRO 
H TWO BYTES 388 


THEN 5 


19500 NR=PEEK (AD) + (2564PEEK 
AD+L)):RETURN 

11999 REM #84 HELP FACILITY 
" 

12006 PRINT ET8;118 

12609 PRINT *CDOWN, RIGHTS, 
RVSON, SC, ST, SR, SL, RVSOFF,, 
SPC, LEFT-ARROM, $PCZ, SRI 
ETURN TOLSPC, SMJENU" 

12616 PRINT *CDOWN, RIGHTS, 
RVSON, SC, ST, SR, SL, RVSOFF,, 
SPC, UP-ARROW, $PC2, SPIRINT 
{SPC, SEIDITORESPC, SC) 
OMMANDS* 

12611 PRINT *CDOWN, RIGHTS, 
RVSON, SC, ST, SR, SL, RVSOFF, 
SPC ($PC2, SEINTERCSPC, $5) 
EARCH/CSRIEPLACECSPC, SH 
ove" 

12013 PRINT *LDOKN, RIGHTS, 
AVSON, $C, ST, SR, SL, RVSOFF, 
$PC=15PC2, SKIEYESPC, SR] 
EPEATISPC, S01N/SOIFF* 

12014 GOSUB 13008 

12015 PRINT ET$5X18 

12616 PRINT *CDOWN, RIGHT, 
SON, SC, 8, $5, SR, RVSOFF 
{SRDIGHTESPC2, SMDOVECSPC, 
SCIURSORCSPC, SFJORWARD 
(SPC, SOINCE" 

12017 PRINT *CDOWN, RIGHT, 
SON, SC, SR, $8, SR, RVSOFF 
{SLIEFTESPC3, SHIOVECSPC, 
SCIURSORESPC, SBIACKISPC, 
SOINCE* 

12018 PRINT *CDOWN, RIGHT, 
RVSON, SC, SR, $5, SR, RVSOFF 
{SUIPESPCS, SMIOVECSPC, $1 
URSORESPC, SBIACK 48" 

12019 PRINT *CDONN, RIGHT, 
SON, SC, SR, $5, SR, RVSOFF 
{SDJOWNLSPCS, SMIOVELSPC, 
SCIURSORLS*C, SF JORWARD 

49" 

12026 g0su 

12021 PRINT 

12022 PRINT *{DOWN, RIGHTS, 
AVSON, SC, SL, SR, RVSOFF, 
$PC3, $81PL1T/CSUINSPLIT 


RVSON, SH, SO, SM, SE, RVSOFF, 
SPC2, SMIOVELSPC, SCIURSOR 
TO TOP OF SCREEN" 

12638 GOSUB 13606 

12032 PRINT ETS;X1$ 

12035 PRINT *CDOWN, RIGHTS, 
RVSON, SPCIFLCSPC, RVSOFF, 


» 


oS Se 


entered, and the required 
device is not present, an error 
message will appear and 
pressing SPACE will cause a 
return to the main menu. If file 
deleting or renaming is at- 
tempted without a disk drive 
available, the program will 
break and return to Basic. Re- 
entry to the program is possible 
by typing GOTO 500. 

¢) Printing: As each line is 
formatted for printing, single 
or double spaces at the 
beginning or end of lines are 
removed to assist in keeping 
straight margins. Thus if an in- 
dentation to indicate the start 
of a paragraph etc. is required, 
it should be at least three 
spaces long. 

d) Word count: This routine 
increments the word counter 
each time it encounters a non- 
space/space combination in 
the text. Thus hyphens, 
commas, full stops etc. will be 
counted as words unless there 
is no space between them anda 
word, and the word count 
should only be taken as an 
approximate figure of the 
number of actual words. 


e) STOP and RESTORE: Whilst 
in the editor, the STOP key is 
disabled, but holding down 
STOP and pressing RESTORE 
will reset the computer as 
usual. Re-entry is not possible. 
But with the editor, STOP and 
RESTORE behave as usual 

f) Memory usage: The Basic 
program is about 10K long, and 
resets the top of Basic memory 
to 19968 ($4E00). The text is 
stored from 120000 ($4E20) up 
to a maximum of 40959 ($9FFF). 
The machine code is situated in 
the 4K RAM space starting at 
49152 ($C000) and is just over 
3K in length. The remaining 1K 
is used for data storage by the 
machine code routines. 


Notes on Typing the 
Programs 


Typing in the program should 
pose few difficulties, though 
care should be taken with the 
data, and some of the print 
statements. A checksum. is 
included in the data loader, 
and this will detect most errors 
in the data. If an error occurs, 
check variables A and C to 
assist in debugging the data 
While typing the data, a 
running check of line length 
comparisons should be made 
€.g. if line 1300 is two characters 
longer than line 1290 in the 


SPC3,ST, $A, $B, SPC) (CSP) 
RINT FIVE SPACES) 

12049 PRINT *CDOWN, RIGHTS, 
RVSON, SPCIFSESPC, RVSOFF, 
SPC3,SDJELETE WORD BEFORE 

CURSOR 

12645 PRINT *CDOWN, RIGHTS, 
RVSON, SPCIFSCSPC, RVSOFF, 
SPC3,SCIURSOR BACK TO LAS 
T SPACE 

12050 PRINT *CDOWN,RISHT6, 
RSON, SPCIF7LSPC, RVSOFF,, 
SPC3,SCIURSOR FORWARD 10 

NEXT® 

12051 PRINT *[RIGHTS, SPC7) 
SPACE® 

12055 GOSUB 13000 

12668 PRINT ETS;!18 

12662 PRINT *COOWN, RIGHTS, 
RVSON,SPCJF2(SPC, RVSOFF,, 
SPC3,SM2OVE CURSOR UP ONE 

PAGE" 

12063 PRINT *COOWN,RIGHT4, 
RVSON, SPCIFSCSPC, RVSOFF, 
SPC3, SDIELETE 40 CHARS 
BEFORECSPC1BICURSOR" 

12064 PRINT *CDOWN, RIGHT6, 
SON, SPCIFBLSPC, RUSOFF, 
SPC3,SIINSERT 40 SPACES 

AT CURSOR" 

1285 PRINT "CDOWN, RIGHTS, 
SON, SPCIFBLSPC, RVSOFF, 
SPC3,SHIOVE CURSOR DOWN 
ONE PAGE" 

12667 GOSUB 13008 

12068 PRINT ET; X18 

12070 PRINT *CDOWN, RISHT2, 
VSON, SC, $B, SM, RVSOFF, SPC, | 
RVSON, SPCIFI SPC, RVSOFF,, 
SPC2, SCIHANGE BACKGROUND 

COLOUR® 

12072 PRINT *LDOWN, RIGHT2, 
RVSON, SC, $8, SH, RVSOFF, SPC, 
VSON, SPCIFSCSPC, RVSOFF, 
$PC2,SCIHANGE BORDER COLO 
uR* 

12074 PRINT *CDOWN,RIGHT2, 
RVSON, SC, $B, SH, RVSOFF, SPC, 
SON, SPCIFSCSPC, RVSOFF,, 
$PC2,SCJHANGE TEXT COLOUR 

12088 GOSUB 13600 

12892 PRINT E78; 1265 1X8 

12108 PRINT *CDOWN, RISHTB, 
RVSON, LEFT-ARROW, RVSOFF,, 
$PC2,SR,SE,ST, SU, SR, SN, 
SPC, SCIHARACTER™ 

1218 PRINT *{DOWN, RIGHT, 
RVSON, SP, RVSOFF,, SPC2, SF 
ORCELSPC, SNJEWESPC, SP2AGE" 


12126 PRINT *CDOWN, RIGHT, 
RVSON, SD, RVSOFF,, SPC2, SD] 
QUBLELSPC, SLIINECSPC, $$) 
PACING* 

12130 PRINT *CDOWN, RIGHT, 
RSON, $8, RVSOFF, SPC2, $51 
INGLECSPC, SLIINECSPC, $82 
PACING® 

12168 GOSUB 13008 

12178 PRINT ET$;X285xX8 

12186 PRINT *LDOWN, RIGHTS, 
RVSON, SR, RVSOFF, SPC2, SRI 
TGHTESPC, SUIUSTIFYESPC, ST) 
ext" 

12196 PRINT *LDOWN, RIGHTS, 
RVSON, SL, RUSOFF,, SPC2, SL] 
EFTCSPC, SIJUSTIFYCSPC, ST) 
ext" 

12206 PRINT "{DOWN, RIGHTS, 
RVSON, $1, BUSOFF, SPC2, SR) 
TGHT USPC, SLIEFTESPC, 81 
USTIFYESPC, STIEXT® 

12210 PRINT *CDOWN, RIGHTE, 
RVSON, SC, RVSOFF, SPC2, SC 
ENTRALISECSPC, STIEXT ON 
(SPC, SLIINE* 

12234 GOSUB 13008 

12236 PRINT E78) 1285 X18 

12260 PRINT "CDOWN, RIGHTS, 
SON, $8, RVSOFF, SPC2, SB2 
EGINNING OFCSPC, SBILOCK 
(SPC, SHIARKER® 

12276 PRINT *CDOWN, RIGHTS, 
SON, SE, RVSOFF, SPC2, SE) 
ND OFESPC, SBILOCKESPC, $M) 
ARKER® 

12275 GOSUB 13600 

12280 PRINT E185 138 

1229 PRINT *CDOWN, RIGHTS, 
RVSON, SC, ST, SR, SL, RVSOFF, 
SPC]: CSPC2, SEINTERESPC, $5) 
EARCH/CSRJEPLACELSPC, SH] 
one* 

12540 PRINT *CDOWN2, RIGHTS, 
SHIHENCSPC, SSIEARCHESPC, 
SSITRINS ISCSPC,SFIOUND 

12310 PRINT "CDOWN,RIGHTI1, 
SR, SPC2, SRIEPLACELSPC, $8] 
EARCHLSPC, SSITRING" 

12328 PRINT "CDOWN, RIGHTS, 
RVSON, SPC, $8, SP, SA, 8C, SE, 
SPC, RVSOFF, $PC2, SFJIND 
(SPC, SNIEXTESPC, $02 
CCURRENCE OF* 

12325 PRINT *CRIGHT14, $8) 
EARCHESPC, SS2TRING" 

12338 PRINT "CDOWN, RIGHTS, 
RVSON, SR, SE, ST, SU,SR,SN, 


RVSOFF, SPC2, SLIEAVELSPC, 
SSJEARCH/CSRIEPLACELSPC, 
SHIODE" 

12335 PRINT *ERIGHTL4JAND 
(SPC, SRIETURN TOCSPC, SE] 
DITOR 

12458 GOSUB 13890:G0T0 1908 

12999 REM 884 WAIT FOR SPACE 
PRESS 13% 

13606 PRINT CDOWN, RIGHT, SP) 
RESSLSPC, RVSON, SPC, $5, SP, 
$A,SC,SE} CRVSOFF, SPCITO 
CONTINUE 

13628 GET 

13028 

13036 RETURN 

13090 PRINT * COOWN, RIGHTI2] 
PREPARE DISK AND* 

13108 PRINT "{DOWN, RIGHT? 
PRESSISPC, RVSON, SPC) 
SPACE (RVSOFF, SPC) 

TO CONTINUE :* 

13126 GOTO 13620 

13999 REM 888 GET DISK STATU 
$ ttt 

14000 IF ST<>0 AND STC>64 TH 
EN 14018 

14005 PRINT "CUP, RIGHT9, 
RVSONJFILE TRANSFER COMPL 
ETEDLRVSOFF]":GOTO 14056 

14019 PRINT “CCLEAR, DOWN3, 
RIGHT7IFILE TRANSFER ERRO 
Rie 

14026 IF S1¢)-128 THEN 14030 

14025 PRINT*ECLEAR, DOWNS, 
RIGHT7IDISK DRIVE NOT AVA 
TLABLE OR* 

14626 PRINT*CRIGHT7 
FILE EXISTS! DOWN2]" 

14928 GOTO 14058 

14036 OPEN 16,8, 15 
TINPUT#L4, ER ERS:CLOSE 16 

14935 IF ER(20 THEN 14858 

14049 PRINT *CDOWN, RIGHT7] 
ERROR #°5ER 

14645 PRINT *CDOWN,RIGHT72(* 
RR 

14088 PRINT "CDOWN, RIGHT7] 
FILENAME + "FHS 

14056 RETURN 

14499 REM 48% GET N CHARS 

FROM DISK BUFFER t8¢ 

14500 182"*2FOR T=1 TON 
2G0SUB 14520 

14516 18=78+88:NENT: RETURN 

14526 GETA3,A8: IF AS=** THEN 

AS=CHRS (a) 

538 A=ASC(AS) :BP=BP +1 

= RETURN 


ASQ)" " THEN 


14999 REM 888 PRINT EDITOR 
HEADER/FOOTER #88 

15008 PRINT *{CLEAR,RVSON, 
BLUE, SPC12, RVSOFF, BLACK, 
SPC, 8H, 90, $R, $D,SP,8R, $0, 
8K, SPC, SE, SD, $1, $T,$0,SR, 
SPC, RVSON, BLUE, SPC! 11"; NOS 

15019 PRINT *CBLUE, DOWN28, 
RVSON, BLUED";NOS5 

15026 PRINT "CRVSON, SPC4, 
RVSOFF,BLACK,SC,ST, SR, SL, 
RVSON, BLUE, SPC, RVSOFF, 
BLACK, UP-ARROW, RVSON, BLUE, 
SPCIFORTSPC, SH, SE,SL,$?, 
SPC2,RVSOFF,, BLACK, SC, ST, 
SR, SL RVSON, BLUE, SPC, 
BLACK, RVSOFF, LEFT-ARROW, 
VSON, BLUE, SPCIFORCSPC, SM, 
SE, SN, SU, SPC3, HOME, DOWN2, 
BLACK, RVSOFFI"; 

15036 POKE 2023, 160 
:POKE 56295, 6:POKE 1944, 
177:POKE 56216, 6 
:REM # LAST SQUARE 

15040 RETURN 

15999 REM 184 SAVE CURRENT 
EDITOR COLOURS 43% 

18000 POKE 53248, PEEK(53280) 
:POKE 53249, PEEK (53281) 

16818 POKE 53288, 6 
sPOKE $3281, 1:PRINT CHRS 
144) : RETURN 

16499 REN 88 RETURN PREVIOU 
$ COLOURS #88 

16806 POKE 53280, PEEK (53248) 
sPOKE $3281, PEEK (53249) 

+ RETURN 

17999 REM 49% GET AND STORE 
FILENAME 848 

18008 PRINT *CDOWN2, RISHT232 
123456789612" 

19818 INPUT *CRIGHTSIGIVE 
FILENAME : *3FMS 

18026 IF LEN(FHS)<1 OR LEN(F 
W8)012 THEN 18000 

18030 FRS=FHS+*, TXT" 

18049 POKE 832, LEN(FMS) 

18050 FOR I=1 TO LEN(FHS) 
2FCS=MIDS (FMS, 1,1) 

sFCSASCLFCS) 

19060 IF FCS="#* OR FC$=*7" 
OR (FCS="." AND 1CDLEN(EM 
$)-3) THEN 18090 

18070 POKE 832+1,FC:NEXT 

18080 RETURN 

18096 PRINT *COOWN, RIGHTS? 
INVALID FILENAME! !" 

36070 18800 

)-128 THEN 14930 


ME 


y SERRE 


listing, it should also be two 
characters longerin the version 
typed on your screen, 

In the main word processor 
program itself, particular care 
should be taken when typing 
the following lines (refer to the 
table of Commodore control 
characters elsewhere in this 
issue): 

15000-15030 - this prints the 
| header/footer for the editor 

and must be exactly the right 

length. 

1700-1720 - this prints the 

header/footer for the search & 


replace facility, and again must 
be the correct length 
4220-4250 - this is a sketch of 
the paper fold position for 
printing out on a 1525 dot 
matrix printer. 

4270-4287 - on-screen printing 
instructions. Note that some of 
the text is in black, and some in 
white. During printing, the 
screen is white, and so only the 
black text is visible, When 
printing is paused, the screen 
becomes black, hence making 
the white text visible. 


14025 PRINT*ECLEAR, DOWNS, 
RIGHT7DISK DRIVE NOT AVA 
TLABLE OR* 

14926 PRINT*CRIGHT7] 

FILE EXISTS! CD0WN2]" 

14928 GOTO 14050 

14036 OPEN 16,8,15 
sINPUTH16, ER, ERS:CLOSE 16 

14035 IF ERC2O THEN 14050 

14946 PRINT "CDOWN, RIGHT? 
ERROR #*5ER 

14045 PRINT "DOWN, RIGHT7(*; 
ERS;*)" 

14048 PRINT "CDOWN, RIGHT? 
FILENAME "3 FMS 

14056 RETURN 

14499 REM #88 GET N CHARS 
FROM DISK BUFFER 131 

18="*:FOR I=1 TO N 
2G0SUB 14528 

14510 18=78+A82NE) 

14520 GETAS, AS: IF A 
AS=CHRS(B) 

14838 ASASC(AS) : 
= RETURN 

14999 REM 88% PRINT EDITOR 
HEADER/FOOTER 313 

15008 PRINT *[CLEAR, RVSON, 
BLUE, SPC12, RVSOFF, BLACK, 
SPC, $H,$0,$R, SD, SP, SR, $0, 
SK, SPC, SE, $D,$1,$T, 90, SR, 
SPC, RVSON, BLUE, SPC11]";NOS 

15016 PRINT "BLUE, DOWN20, 
RVSON, BLUE"; NOS; 

15026 PRINT "CRVSON, SPC4, 
AVSOFF,, BLACK, SC, ST, SR, SL, 
RVSON, BLUE, SPC, RUSOFF., 
BLACK, UP-ARROW, RVSON, BLUE, 
SPCIFORISPC, SH, SE,SL, SP, 
‘$PC2,RVSOFF , BLACK, SC, ST, 
SR, SL, RVSON, BLUE, SPC, 


145 


TURN 
* THEN 


P=BP+! 


BLACK, RVSOFF, LEFT-ARROW, 
ARVSON, BLUE, SPCIFORISPC, S 
SE, SN, SU, PC3, HOME, DOWN, 
BLACK, RVSOFF I"; 

15030 POKE 2623, 169 

POKE 56295, 6:POKE 1944, 
177:POKE 54216, 6 
REM f LAST SQUARE 

15089 RETURN 

15999 REM #84 SAVE CURRENT 

EDITOR COLOURS #88 

16080 POKE 53248, PEEK (53286) 
:POKE 53249, PEEK(53281) 

16010 POKE 53280, 6 

sPOKE 53281, 1sPRINT CHRS 
144) RETURN 

16499 REM 888 RETURN PREVIOU 
$ COLOURS 18% 

16500 POKE 53280, PEEK (53248) 

KE $5281 ,PEEK(S3249) 

TURN 

17999 REM $84 GET AND STORE 
FILENAME 388 

18000 PRINT *{DOWN2,RIGHT232 
123456789012" 

19019 INPUT *{RIGHTSIGIVE 
FILENAME : "3FHS ” 
18020 IF LEN(FMS)<1 OR LEN(F 
ns))12 THEN 18606 

18030 FIS=FNS+", TT” 

8848 POKE 832,LEN(FMS) 

1985@ FOR 1=1 TO LEN(FMS) 

C$=MIDS (FHS, 1, 1) 

FCASC(FCS) 

18060 IF FCS="¢" OR FCS 
OR (FCS=*,* AND I<OLENCFM 
$)-3) THEN 18890 

19078 POKE 832+1,FC:NEXT 

18080 RETURN 

18090 PRINT *{DOAN, 

INVALID SILENAME' 


How it Works 


10-90 
100-128 


130-430 
500-610 
1000-1310 


10000-10010 
10500 

12000-12450 
13000-13120 


14000-14050 
15000-15040 
16000-16500 
18000-18090 


Set up and load machine code section 
Set up start addresses of machine code 
routines 

Set up more variables and memory 
Main menu selection 

Editor entry/exit handling 
Search/replace handling 

Save routine set up 

Load routine set up 

Printout option selection 

Printout entry/exit handling 

Disk file handling routines 

Word count handling 

Restart program 

Exit program 

Put double byte number into memory 
Get double byte number from memory 
On-screen help facility 

Press SPACE requests (upper and 
lower case) 

Get disk status and print any errors 

Set up editor screen header/footer 
Save and replace editor screen colours 
Get filename and transfer to memory 
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Polar problems with this 
month’s entry from lan Potts. 


POLAR PETE IS THE LATEST GAME TO BE 
featured in the Programmer of the Year 
competition. The game doesn’t feature 
really fast, super smooth graphics, but 
instead lan Potts has taken a simple idea, 
added some extremely ‘cute’ graphics 
and produced an excellent game. A good 
game isn’t always complicated. 


The Game 


Your aim is to guide Polar Pete around his. 
local ice-pack collecting the blocks of ice 
so that he can build his igloo. Of course 
life isn’t made easy as Pete has to avoid the 
penguins and polar bears which always 
seem to be in his way. 

Pete is controlled by a joystick in Port 
2. To pick up a block of ice you must 
position Pete just to the right of a block of 
ice and press the button. Positioning is 
important and it has been found that it is 
best to position Pete so that his nose is just 
above and right of the ice block. J 

‘Once the ice block is collected Pete 
must drag the block back to his pad on the 
right hand side of the screen. Again 
position Pete to the right and press fire to 
deposit the block. 

‘After all of the blocks have been 
collected Pete will build his igloo and go 
on to the next screen. 

The music can be turned off by 
pressing any key on the keyboard. 

‘Oh, by the way, don’t let Pete fall into 
the water as it’s very cold! 


Getting It In 


Polar Pete will work on a C64 with either 
tape or disk. 

There are five parts to be entered 
(PETE LOAD 1-5). Each of the five parts 
must be typed into your machine 
separately and saved on to tape or disk. If 
you are using tape do make sure that the 
you make changes where indicated in the 
REM statements. Do make sure that you 
save the programs with the same names as, 
in the magazine or they will not work, 

Once all parts have been saved turn 
your machine off and on and enter the 
following line: 


a ae 


PROGRAMMER 
OF THE 


YEAR 


(Czcommaodore 


POKE 16483,0:POKE44,64: NEW 


Now load ‘PETE LOAD 1’ into your 
machine and type RUN. Th's will load in 
each of the parts as required and save 
them into memory. If you have made any 
errors while typing in any of the data 
statements you will now be told which 
line the error is in, Make the changes 
needed, SAVE the part again and start 
again from the POKE instructions above. 

When all of the information has been 
saved into memory the program will auto- 
matically save itself as ‘POLAR PETE’. If 


PROGRAM: PETE LOAD 1 


2060 FOR L=@ TO 156:CK=0 

OR D=8 TO 15:READ A 

CHECK+ALPOKE 2649+L 41640, 

EXT D 

2019 READ As TF ACOCK THEN PR 
INT*ERROR IN LINE" 
2046+ (L418) :STOP 

2026 NEXT L 

2648 DATA 13,8, 10,8, 158,49, 
536,56, 49,54,41,6,9,0,234, 
234,947 

2058 DATA 234,234,234, 254, 
254,234, 234, 234, 254, 234, 
234,234,234, 234, 254, 234, 
BLL) 


you are using cassette then do make sure 
that you put a clean cassette into the 
recorder after part five has loaded. If you 
don’t then ‘POLAR PETE’ will be saved 
after all of the other parts which are no 
longer needed. 

All you need to do to play POLAR PETE 
is turn your machine off and on and type 


LOAD “POLAR PETE”,8,1 fo disk or 
LOAD “POLAR PETE’,1,1 for tape 


Once the program has finished 
loading type RUN and play the game. 


peu BY TAN POTT 
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2860 DATA 234,234,234, 234, 
234, 234, 234, 234, 234, 294, 
234,234, 234, 234, 234, 254, 
BL 

2676 DATA 234,234, 234, 32,61, 
8,32,179,8,76,55,8, 169, 8, 
1410, 1471 

2606 DATA 8,8,8,9,0,8,6,31,9, 

31,240, 8, 248, 0,7, 128,677 

198 DATA 8, 12,80, 24, 192,8, 

32,32, 0,48,32,8,192,8,6, 
556 

2108 DATA 192,8,8,99,254,8, 
43,5, 134,0,8,248,8,8,8,8, 
1019 

2116 DATA 0,8,8,8,16,0,0,16, 


6,6,33,0,8,126,6,8,199 v 


127,224, 8, 192, 
56,8,6,15,8,0,1,192,6,6, 
867 


2138 DATA 96,9,0,48,8,8,24,8, 
6,12,0,0,4,0,0,4, 188 

2146 DATA 0,0,4,0,,4,9,9,4, 
62,44 15, 14,24, 25,96 

2156 DATA 250, 16,48, 6,24, 108, 
5,8, 194,9, 8, 68,15, 248, 6,6, 


32, 32,8, 48, 32,8,192,,8, 
556 

2186 DATA 192,6,8,99,254,8, 

252, 8,8, 12,8, 


2190 DATA 8,4,9,0,12,0,0,22, 

63,06, 119 

2266 DATA 9,8,127,224,8,192, 
56,0,0, 15,8,8,1,192,8,8, 
867 


2210 DATA 96,0,6,48,8,8,24,8, 
6,12,0,0,4,0,9,4, 188 

220 DATA 8,8,4,0,84,9,9)4, 
9,0,8,31, 12, 16,33, 112 

2236 DATA 256, 16,32,2,32, 16, 
4,48, 16,4, 72,248, 15,248, 9, 
4,995 

2246 DATA 9, 248,8,8, 
15, 248, 8, 0,15,6,0,1,527 

2250 DATA 224,8,8,48,0,3,24, 
5,4,4,8,4, 20,0,0,3,334 

2266 DATA 16,0,3, 16,127,198, 
17,192, 252,31, 6,8, 16,8,8, 
16,884 

2278 DATA 8,8,8,0,8,8,8,8, 
132,0,0,126,9,0,0,0,274 

2286 DATA 8,9,8,7,258,8,28,3, 

48,0,3,128,0,6,0, 669 

IATA @,12,8,6,24,6,6, 48, 
8,8,52,0,0,32,8,8, 148 

2366 DATA 32,8, 0,32,9,0,32,8, 
9,32, 64, 8,24, 112, 246,8,576 

ATA 95, 152, 24,96, 28, 16, 

8, 16, 144, 67,31, 240, 
68,0,6,1159 

2526 DATA 8,8,8,8,,248, 8,8, 
15,248, 8,6, 15,6,0,1,527 

2330 DATA 224,8,0,48,0,3,24, 
,4,4,6,4, 26, 6,6,3, 334 

2348 DATA 16,0,3, 16,127,198, 
17,192, 252, 63, 0,6, 48,8,8, 
32,964 

2350 DATA 6,8,48, 0,0, 164,0,0, 
72, 6,0,25 50,476 

2366 DATA 6,8,8,7,254,8,28,3, 
6, 248,8,3, 128, 8,6,8, 669 


2311 


2378 DATA 8,12,0,0,24, 6,0, 48, 
6,8,32,0,0,32,8,8, 148 

2386 DATA 32,9,6,32,8,9,32,8, 
8, 16,0,0,8,48, 248, 8, 424 

2390 DATA 95, 132,4,64)4,12, 
32,8, 18,32,8,31, 248, 15,8, 
4,695 

2408 DATA 9,6,0, 168,0,2,170, 
4, 2,178,9, 18, 168, 128, 18, 
168,996 

2419 DATA 128, 42,176, 144,42, 
170,84, 42, 176, 85, 42,170, 
85,42, 168, 128, 1704 

2428 DATA 42,128,32,42,168, 
32,42, 168, 32,42, 166, 32,42, 
168,32,42, 1180 

2438 DATA 168, 128,42, 162,88, 
22,169, 88, 21,69, 68,5,49,8, 
4,9, 1071 

2448 DATA 9,6,,168,8,2,178, 
4,2, 178,8, 10, 168, 128, 18, 
168,996 

2450 DATA 128, 42,178, 144,42, 
176,84,42,170,85, 42,178, 
85, 42, 168, 128, 1784 

2406 DATA 42, 128, 32,42, 160, 
32,42, 168,32, 42, 168,32,42, 
166,32,42, 1186 

2478 DATA 168, 128,42, 162,46, 
169, 64,5485, 64,5,69, 0,00, 
959 

2496 DATA 9,6,8,168,,2,178, 
4,2, 178,8, 18, 168, 128,18, 
168,996 

2496 DATA 128,42, 178, 144,42, 
176, 84,42, 178,85, 42, 178, 
85,42, 168, 128, 1784 

2506 DATA 42, 128, 32,42, 160, 
32,42, 168,32, 42, 166,32,42, 
166,32, 42, 1180 

2516 DATA 168,128, 42,162,6, 
16, 168,0, 1,85, 64, 1,85,64, 
234, 169, 1373 

2526 DATA 9, 141,92,3, 141, 93, 
3,141,943, 141,95,3, 141, 
96,3, 1190 

2536 DATA 169,8,32, 216,255, 
169,0,141,24,3, 169, 11,141, 
25, 3,76, 1436 

2540 DATA 65, 13,169, 1,141,25, 
268, 141, 18,268, 141,26, 208, 
16950, 141, 1674 

2550 DATA 52,3,141,56,3,141, 
14,220, 141,53,3, 169,26, 
141,54,3,1214 

2566 DATA 141,55,3, 141,17, 
208, 126, 169, 84,141, 26,3, 
169) 11,141, 21, 1444 

2578 DATA 3,88, 96,169, 1, 141, 


25,268, 169,48, 141, 18,268, 
173,54,3, 1537 

2586 DATA 141,22, 268, 173,55, 
3,141, 17,268, 32,215, 26, 
173,56,3,248, 1767 

2596 DATA 16,173,232,3,268,3, 
76,45, 13,169, 0, 141, 232,3, 
1h, 244, 1834 

2400 DATA 12,169, 1,141,563, 
173,53,3, 208, 3,76, 168,11, 
201,1,1271 

2619 DATA 268,33, 76, 219, 11, 
201, 2,268,3, 76,22, 12, 76, 
81,12, 173, 1383 

2626 DATA 52,3,248,3,32, 252, 
26, 173,54,3,56,237,52,3, 
261, 16,1397 

2638 DATA 144, 6,141,54,3,76, 
49, 234, 105,8, 141,54,3, 169, 
1,141,1329 

2640 DATA 232,3,162,9,282, 
208, 253,238, 156, 3,24, 165, 
253, 195, 1,133, 2138 

2658 DATA 253, 185,254, 105, 8, 
133,254, 76, 137, 12, 173,52, 
3,246, 3,32, 1892 

266 DATA 84,21, 173,54,3,24, 
109,52,3, 21, 24,176, 6,141, 
54,3, 1124 

2678 DATA 76,49, 25423348 
141,54,3, 169, 1, 141, 282,3, 
162,6, 262, 1708 

2688 DATA 268, 253, 286, 156,3, 
56, 165, 253,233, 1, 133, 253, 
165,254, 233,9,2572 

2690 DATA 133, 254, 76, 137,12, 
173,52,3,248,3,32,18,22, 
173,55,3,1386 

2760 DATA 5b, 237,52,3,261, 16, 
144, 6, 141,55,3,76,49, 234, 
165,8, 1386 

2718 DATA 141,55,3,169, 1,141, 
232,53, 162, 8,202,208, 253, 
238, 157,3,1968 

2726 DATA 24, 165,253, 105, 126, 
133, 253, 165, 254, 165, 0,133, 
254, 76,137, 12,2189 

2738 DATA 173,52,3,249,3,32, 
61,22, 173,55,3,24, 189,52, 
3,201, 1206 

2749 DATA 24, 176,6,141,55,3, 
76,49, 234, 233, 8, 141,55,3, 
169, 1, 1374 

2750 DATA 141,232,3,162,6, 
202, 268, 253, 206, 157,3,56, 
165, 253,233, 120, 2394 

2766 DATA 133,253,165, 254, 
233, 0, 133, 254, 165, 253, 133, 
249, 165,254, 133,258, 3827 


2776 DATA 162,6,160,8,177, 
249, 157,8,4, 232, 200, 192, 
40,208, 245,24, 2058 

2786 DATA 165,249,105, 128, 
133,249, 165, 258, 185, 6,133, 
256,224, 240, 208, 226, 2822 

2790 DATA 162,8, 168,,177, 
249, 157,249, 4, 232,260, 192, 
‘46,288, 245, 24, 2298 

2886 DATA 165,249, 105,128, 
133,249, 165, 256, 1956, 133, 
250, 224,246, 268, 226, 2822 

2818 DATA 142, 0,166,,177, 
249, 157,224, 5,232, 208, 192, 
49,208, 245, 24,2275 

2826 DATA 165, 249, 105, 128, 
133,249, 165,250, 105, 8,133, 
256,224, 240, 268, 226, 2822 

2830 DATA 76,49, 254,24, 165, 
253, 105, 112, 133,249, 165, 
254, 105,8, 133, 250, 2515 

2846 DATA 162,6,160,0,177, 
249, 157, 268, 6, 232, 268, 192, 
49, 268, 245,24, 2260 

2850 DATA 165,249, 165, 128, 
133,249, 165, 256, 105,8, 133, 
250,224, 248, 268, 226, 2822 

2860 DATA 168,8,177,249, 153, 
192,7,208, 192, 49,268,246, 
32,214, 22, 32,2124 

2876 DATA 214,22,32, 168,24, 
32,144, 26, 169, 0, 141,563, 
14,49, 234, 1398 

2886 DATA 32,78, 28,169,128, 
141, 18, 212, 32, 113, 28,32, 
261,28, 169, 154, 1563 

2898 DATA 32,216,255, 169,147, 
32,216, 255,32, 145, 18,32, 
166, 19, 32,35, 1783 

2960 DATA 11, 169, 16, 141,248, 
3,32, 167, 27,32, 137,25, 32, 
24,26, 206, 1292 

2916 DATA 248, 3,173, 248,3, 
246,3, 70,168, 13, 169,16, 
141,248, 3, 165, 1989 

2928 DATA 263, 261, 64,249, 2b, 
175,86, 27, 268,13, 169, 15, 
141,24, 212, 169, 1971 

2938 DATA 1,141,86,27,76, 168, 
13,169,9,141, 24,212,141, 
84, 27,173, 1477 

2946 DATA 6,220, 41,4, 208,19, 
169, 1, 141,53, 3, 169, 2,141, 
52,3, 1226 

2958 DATA 32,12, 15,32, 265, 15, 
7,23, 14,173, 0,228, 41,8, 
268, 19, 1693 

2960 DATA 169,2,141,52,3,169, 
0,141,53,3,32,78, 15, 32,15, 


16,921 

2970 DATA 76,23, 14,173,8,226, 
41, 2,268, 24, 169, 2, 141,52, 
3,169, 1317 

2986 DATA 2,141,53,3,169, 142, 
141,256,732, 144, 15,32, 
147, 16, 76, 1378 

2990 DATA 23, 14,173,6,226,41, 
1,268, 24, 169,2,141,52,3, 
169,3, 1243 

3068 DATA 141,53,3, 169, 138, 
141,256,7,32, 144, 15,32, 81, 
16, 76,23, 1321 

1G DATA 14, 169,6,141,52,3, 
166,4, 162,0, 282, 268, 253, 
136,208, 248, 1968 

3026 DATA 173,0,220,41, 16, 
246, 3,76, 163,13, 173,241,5, 
261,8, 248, 1753 

DATA 11,261,38,248, 71, 
261, 31,240, 67, 76,103, 13, 
173, 68, 3,248, 1768 

3640 DATA 3,76, 163,13, 169,1, 
141,68, 3, 238, 252, 7, 169, 
144,141, 63, 1591 

3058 DATA 3,169, 146, 141, 64,3, 
169, 148, 141,65,3, 169, 150, 


3 


3110 DATA 13,238, 7,3,173, 76, 
3,261, 1,248, 16, 169, 36, 141, 
71,3, 1442 

3126 DATA 169,0,141,68,3,141, 
89,3,76,217, 14, 169, 26, 141, 
71,3,1365 

3130 DATA 169,6,141, 68,3, 141, 
69,3,32, 177,29, 32, 66, 28, 
169,142, 1261 

3148 DATA 141,256,7,169, 148, 
141,251, 7,174, 70,3,32,29, 
28, 262, 268, 1852 

3156 DATA 256, 16,8,141,222, 
3,162, 6,166, 8, 136, 268, 253, 
202, 268, 248, 2378 

3166 DATA 266,222,3,173,222, 
3,268,238, 76,92, 13, 266,57, 
3,246, 1, 1963 

3176 DATA %6, 169,16, 141,57,3, 
169, 136, 141,256,7, 173,251, 
7,201, 131, 1942 

3186 DATA 246,15, 261, 132,248, 
22,169, 1, 141, 58,3, 169, 132, 
141,251, 7,1922 

3196 DATA 95, 169,6, 141,58, 3, 
169, 132, 141,251, 7,%6, 173, 
58,3, 248, 1737 


chi 


141,66,3, 1581 

3868 DATA 24, 165,253, 165, 174, 
133,251, 165, 254, 165,5, 133, 
252,32, 133, 17,2261 

3078 DATA 32, 66,26, 32, 253,27, 
32, 253, 27,76, 163, 13,173, 
68,3, 268, 1386 

3686 DATA 3,76, 163, 13, 169,8, 
141, 68,3, 286, 252, 7, 169, 
143, 141,63, 1557 

3098 DATA 3,169, 145,141, 64,3, 
169,147, 141,65,3, 169, 149, 
141,66,3,1578 

3166 DATA 32, 13,28, 238, 69,3, 
173,69,3, 265, 71,3, 248, 3, 


Thy 18351329 


3260 DATA 6,169, 131,141,251, 
7, %, 169, 133,141,251, 7,95, 
286,57, 3, 1864 

3216 DATA 248, 1,96, 169, 16, 
141,57,3, 169, 134, 141,258, 
7,173, 251,7, 1855, 

3226 DATA 261,135,246, 15, 261, 
136,248, 22, 169, 1, 141,58,3, 
169, 136, 141, 2608 

3236 DATA 251,7, %,169,0, 141, 
58,3, 169, 136,141,251, 7,95, 
173,58, 1756 

3246 DATA 3,246, 6,169,135, 
141, 251, 7,96, 169,137, 141, 
251,7, 96,266, 2655 

3250 DATA 57,3,240, 1,96, 169, 


16, 141,57,3,173, 251, 7,261, 
139,240, 1794 

3268 DATA 15,261,148, 240,22, 
169, 1, 141,58, 3, 169, 148, 
141,251, 7,96, 1794 

3276 DATA 169,6, 141,585,169, 
149,141, 251, 7, 96) 173,58,3, 
246, 6, 1655 

3289 DATA 169,139, 141,251,7, 
6,169, 141, 141,251, 7,96, 


206, 62,3,240,2119 

3290 DATA 1,96, 169,3, 141,62, 
3,173, 8,268, 261, 198, 248, 4, 
238, 8, 1753 

3360 DATA 208, 96,169, 211,141, 
29,268, 169, 227, 141, 23, 268, 
173,63,3,141, 2218 

3318 DATA 252, 7, 173,9, 268, 
201,151,248, 10, 48,4, 206, 9, 
208, 96,238, 2866 

3326 DATA 9, 268, 96, 169, 151, 
141, 9, 268, 169, 198, 141,8, 
268, 96, 266, 62,2879 

3330 DATA 3,246, 1,96, 169,3, 
141,62,3,173,8, 208, 261, 
126,246, 8, 1682 

3346 DATA 26,8, 208,96, 238,9, 
208, 96,169, 211, 141,29, 208, 
169, 227,141, 2364 

3358 DATA 23,208,173, 64,3, 
141, 252, 7,173, 9, 268, 261, 
151,240, 6, 48, 1997 

3366 DATA 227, 266,9, 208, %, 
169, 151, 141,9, 268, 169, 126, 
141,8, 268,96, 2172 

3370 DATA 206, 62,3, 248, 1,96, 
169,3,141,62,3,173, 9, 268, 
201,172, 1749 

3380 DATA 246, 4,238,9, 208, %, 
169, 195, 141, 29, 268, 169, 
243, 141, 23, 268, 2321 

3390 DATA 173, 65,3, 141,252,7, 
173,8, 268, 261, 174, 24,16, 
48,4, 206, 1913 

3406 DATA 8, 268,96, 238,8, 268, 
6,169,172, 141,9, 208, 169, 
174,141, 8,253 

3410 DATA 208, 96, 206, 62,3, 
246, 1,96, 169, 3,141, 62,3, 
173,9, 268, 1686 

3426 DATA 201, 169,246, 4,266, 
9, 208, 96, 169, 195, 141, 29, 
208, 169,243, 141, 2368 

3438 DATA 23,208,173, 66,3, 
141,252, 7,173,8, 268, 261, 
174,240, 16,48, 1935 

3440 DATA 4,266, 8,268, 96,238, 
8, 268, 96, 169, 189, 141,9, 
268, 169, 174, 2651 


3458 DATA 141,8, 268,96, 168,0, 
185, 45,17, 145, 251, 268,192, 
4,208, 246, 2106 

3468 DATA 24, 165, 251, 105,128, 
133, 251, 165, 252, 185,0, 133, 
252, 166, 6,185, 2301 

3470 DATA 49, 17,145,251, 200, 
192,4, 268,246, 24, 165, 251, 
105, 126, 133, 251, 2361 

3486 DATA 165, 252, 185, 8, 133, 
252, 166, 0, 185,53, 17,145, 


3498 DATA 208, 246,724, 165,251, 
105, 126, 133, 251, 165, 252, 
195, 8, 133, 252, 166, 2578 

3586 DATA 6, 185,57, 17, 145, 
251, 266, 192, 4, 268, 246, 9%, 
5,6, 7,8, 1627 

3516 DATA 9,16, 16, 11, 12,19, 
16, 13, 14,15, 16,17, 166,0, 
185,99,591 

3528 DATA 17,145,251, 269, 192, 
7,208, 246, 24, 165, 251, 165, 
126,133, 251, 165, 2486 

3538 DATA 252, 105, 0, 133, 252, 
166,8, 185, 186,17, 145,251, 
206, 192,7, 268, 2213 

3540 DATA 246, %6,8, 19, 28,21, 
22,23, 0,18,0,6,8,8, 0,24, 
489 

3558 DATA 126,36, 172, 155, 185, 
50,219, 263,263, 240, 114, 
115,119, 121,125,127, 2298 

3560 DATA 126, 132,132,133, 
166,6, 185, 221,17, 145,251, 
206, 192,4, 208, 246, 2352 

3578 DATA 24, 165, 251, 185, 128, 
133,251, 165,252, 165, 6,133, 
252, 166, 0, 185, 2561 

3586 DATA 225,17, 145, 251,200, 
192,4, 268, 244, 24, 165, 251, 
105, 126, 133, 251, 2537 

3596 DATA 165, 252,105, 9, 133, 
252, 166, 6, 185, 229, 17, 145, 
251, 266, 192,4, 2296 

3460 DATA 268, 246, 24, 165,251, 
244, 244,244, 244, 244, 244, 
244,244, 248, 244, 244, 3578 

4000 PRINT" CCLEARINEW* 
PRINT? CDOWN2] 

LOAD" +CHRS (34) +*PETE LOAD 
2*+CHRS (34) 4", 8° 

4010 REN 3% CHANGE THE ,8 
IN ABOVE LINE TO ,1 IF 
YOU ARE USING TAPE 38 

4928 PRINT*COOWNAIRUN" 

4030 POKE 631, 13:POKE 632,13 
2POKE 633,13:POKE 1983 
sPRINT®CHOME]" 


Sa eS ae 


PROGRAM: PETE LOAD 2 208, 169, 198, 141,8, 208, 169, 


15, 141,43, 1836 
2006 FOR L=8 TO 1! 2216 DATA 268, 169,3,141,62,3, 


2FOR D=6 TO 15: 169, 143, 141,252,7, 141, 63, 

2CHECK+ALPOKE 4549+L114+D, | 3,169,145, 1819 

ANEXT D 2226 DATA 141,64,3,169, 147, 
2016 READ ALIF ACYCK THEN PR |  141,65,3,169, 149,141, 66,3, 

INT*ERROR IN LINE"; 169,6,141, 1571 

2048+ (L418) sSTOP 2230 DATA 68,3,169, 26, 141,24, 
2028 NEXT L 208, 169,9, 141, 69,3, 141, 78, 
2646 DATA 251,105, 128,133, 3,169, 1404 

251,165, 252, 165, 8, 133,252, | 2248 DATA 19, 141,71,3,169,9, 

160,, 185, 233, 17, 2362 141,34, 268, 169,5, 141,35, 


2056 DATA 145,251, 266,192,4, | 268, 169,33, 1546 
208, 246,%6,2,3,4)3,1,1,1, | 2258 DATA 141,254,7, 169,34, 


1, 1358 141,255,7,169,0,141, 15, | 248 DATA 88,268,232, 162, 8, 7b, 164, 1069 

2066 DATA 1,1)1,1,1,1,1,1,23, | 288,141, 13, 268, 1983 189,237, 17, 133,251,189,11, | 2558 DATA 22,32,61,22,76,159, 
31,35, 68, 56,84, 187,243, 655] 2268 DATA 141, 12,288, 141,14, 18, 133,252,32,2144 22,56, 173, 18, 268, 233, 2, 

2676 DATA 12,4, 187,252,99, 208, 169,11,141,45,268, 141, | 2418 DATA 213, 16,232,236, 71, 141, 16, 268, 1435 
94,54, 67,86, 118, 156, 145, 46,208, 169, 78, 1932 3,268,237, 162,0,189, 113, | 2560 DATA 176,8, 173, 16,268, 
138,32,36, 36, 1687 2276 DATA 141, 152,3, 141,153, 17, 133,251, 189,278 41,223,141, 16, 268, 173, 16, 

2086 DATA 39,165,228, 226,126,|  3,169,7,141,154,3,169,8, | 2428 DATA 123,17,133,252,32, 208, 41,32,268, 1888 
113, 115, 113, 113, 117, 118, 141, 155, 3, 1535 ‘61,17,232, 224, 16, 268, 238, | 2578 DATA 7, 173,16, 268,261, 
117,116, 122,122,123,2671 | 228 DATA 169,27, 141,157,3, 169,227, 133, 251, 2327 32,240, 25,32,214, 24, 173, 

2096 DATA 129,131, 132,132, 169,76, 141, 156,3,169,111, | 2438 DATA 169,119, 133,252,32, | 168,2,261,1,1711 
133, 128,126,124, 128, 128, 133, 254, 169,94, 1966 41,18, 175,77,3,141,54,3, | 2880 DATA 248, 15,173, 178,2, 
115,123, 123,123,113, 128, | 2296 DATA 133,253,169, 8, 141, 165, 254, 133, 1767 201, 1,248,8, 173,172,2, 261, 
2008 44,288, 169, 188,141, 18,288, | 2448 DATA 252,165,253, 133, 1,240, 1, 1848 

2108 DATA 124,132,124, 138, 141,11, 208, 169, 2185 251, 162,6,166,8,177,251, | 2598 DATA 96,169, 2,141, 212,3, 
166, 6,185,129, 18,145,251, | 2380 DATA 43,141,253,7,169,8, |  157,0,4,232, 268, 2397 24,173, 18, 208, 105,2,141, 
280,192, 4, 208,246, 2248 141,212,3,141,2143,169,4, | 2456 DATA 192, 18, 208, 176, 1686 

2118 DATA 24,165,251, 165,126, | 141,213, 1854 165, 251, 165, 12 2668 DATA 1,96, 173, 16, 208, 9%, 
133,251, 165,252, 105, 8,133, | 2316 DATA 3,169,13,141,5,212, | 165,252,105, 8, 133,2389 32,141, 16, 268, 96, 24, 173, 
252,166, 6, 185, 2361 169,10,141,12,212,169,8, | 2460 DATA 252,224, 240, 208, 16,268,105, 1516 

2126 DATA 133,18, 145,251,268, 141,19, 212, 1636 226,162,8,160,0,177,251, | 2618 DATA 2,141, 18, 268, 144,8, 
192,4, 208, 246,24, 165, 251, | 2326 DATA 169,1,141, 6,212, 173, 16,268,9,32, 141, 16, 
195,128, 133,251,2446 141, 13,212, 169,8, 141,26, 268, 173, 16, 1565 

2136 DATA 165, 252, 165,8,133, | 212, 169,15, 141, 1778 165,251, 105,126, 133,251, | 2620 DATA 208,41,32,249,7, 
252, 166,0,185, 137, 18,145, | 2338 DATA 24, 212,32,38,27, 165, 252, 105, 8, 133, 2389 173, 18, 268, 261,64, 248, 25, 
251,266, 192, 4,2199 169,63, 141,21, 208,96,173, | 2486 DATA 252,224, 248, 268, 32,214, 24, 173, 1892 

2146 DATA 268,246,24,165,251, | 54,3, 141,77, 1479 226,162,0,166,0,177,251, | 2638 DATA 169,2, 261, 1,248,15, 
165, 128,133,251, 165,252, | 2546 DATA 3,169,6,141,54,3, 157,224,5, 232, 266, 2718 173,171,2,261, 1,240, 8,173, 
105, 6,133,252, 168, 2578 169, 165,133,252, 169,128, | 2498 DATA 192,48, 208, 245, 24, 173,2,1772 

2158 DATA 9,185, 141, 18, 145, 133,251, 1660, 1862 165,251, 105,120,133, 251, | 2648 DATA 201,1,240, 1,96, 169, 
251,288,192, 4, 268, 246,96, | 2358 DATA 169, 1,145, 251,238, 165,252, 105, 8,133, 2389 3,141, 212,3, 56, 173, 19, 208, 
6,38,31,8, 1747 251,165,251, 268, 244,230, 2506 DATA 252,224, 248, 208, 233,2,1749 

2166 DATA 32,33,34,35, 0,38, 252,165, 252, 261, 1413156 226, 162,8,168,6,177,251, | 2658 DATA 141, 16,268, 144,1, 
31,0,8,38,31,0,169,174, | 2566 DATA 268, 256, 169, 112, 157,268, 6,232, 268, 2763 96,173, 16,268, 41, 223,141, 
141, 4,744 133, 252, 169,148,133, 251, | 2516 DATA 192,48, 268, 245, 24, 16,268, 96, 266, 1928 

2176 DATA 268, 141,6,268, 169, | _162,8, 168,0,169, 8,2382 165,251, 105,128,133, 251, | 2660 DATA 213,3,240, 1,96, 169, 
6,141, 92,3,141,93,3, 141, | 2378 DATA 145, 251,280,192,88, | 165,252, 105,9, 133, 2389 4,141, 213,3,173, 253, 7,261, 
94,3, 141, 1584 268,247,24,165, 251,105, | 2528 DATA 252,224,248, 208, 41,248, 1998 

2186 DATA 95,3,141,96,3,169, | 128,133,251, 165, 252,2789 226, 168,84 177,251, 153, 192, | 2678 DATA 31,261,43,240,27, 
136, 141,5,208, 169, 151, 141, | 2388 DATA 105, 6,133,252, 232, 7,206, 192,48, 268, 2738 173,214,3, 246, 11, 169,9, 
7,208, 162, 1829 224,49, 268, 227, 168,8,169, | 2538 DATA 246, 95,173, 212,3, 141,214, 3, 169, 1879 

2198 DATA 138, 142,258,7,232, | 2,145,251, 20,2357 208, 6,32, 252,28,76,219,21, | 2688 DATA 41,141,253,7, 9%, 
142,251,7, 169,8,141,58,3, | 2398 DATA 169,3, 145, 251, 208, 261,1, 268, 1974 169,1, 141,214, 3, 169,43, 
169, 16,141, 1858 169,4, 145, 251,200, 169,3, | 2548 DATA 6,32,80, 21,76, 164, 141,253, 7,96, 1775 

2200 DATA 57,3,169,151,141,9, | 145,251, 266,192, 2497 21,261,2,208,632,18,22, | 2698 DATA 169, 42,141, 253,7, 


SSS ae ee 


%b, 286, 213,3,240, 1,96, 169, 
4,141,213, 1994 

2766 DATA 3,173,253, 7,261, 
157,246, 31, 261, 159, 248,27, 
173,214,3, 246, 2322 

2718 DATA 11,169,8,141,214,3, 
169,157, 141,253, 7,96, 169, 
1,141, 214, 1886 

2728 DATA 3,169, 159, 141,253, 
7,96, 169, 158, 141,253, 7,9, 
206, 11,268, 2677 

2738 DATA 286, 11,208, 173, 11, 
208, 261,48,249, 18,32, 214, 
24,173, 168, 2,1937 

2740 DATA 201,1,248, 8, 173, 
169,2,261, 1,248, 1,96, 169, 
1,141,212, 1856 

2750 DATA 3,238, 11,268, 238, 
11,268, 96, 238, 11,208,238, 
11,208,173, 11,2111 

2760 DATA 268,261, 216,248, 18, 
32,214, 24) 173,178,2,261,1, 
240,8,173,2115 

2776 DATA 171,2,261,1,248,1, 
96, 169,8, 141, 212,3, 286, 11, 
208, 266, 1868 

2786 DATA 11,268, 94,286,213, 
3,246, 1, 96169, 4, 141,213, 
3,173,253, 2630 

2798 DATA 7,261, 154,248,31, 
261, 156,248, 27, 173, 2143, 
246, 11, 169,9, 2067 

2806 DATA 141,214,3,169, 154, 
141, 253, 7,96, 169, 1,141, 
214, 3, 169, 156, 2031 

2818 DATA 141,253,7,95, 169, 
155,141, 253,7, 96,26, 213, 
3,246, 1,96, 2677 

2828 DATA 169,4, 141, 213,3, 
173,253, 7,261, 151, 246,31, 
261,153,248, 27,2287 

2838 DATA 173,214,3,248,11, 
169,8, 141, 214,3, 169, 151, 
141, 253, 7,96, 1985 

2846 DATA 169,1,141,214,3, 
169, 153, 141, 253,7,96, 189, 
152, 141, 253,7,2869 

2850 DATA 96, 173, 155,3,268,3, 
1b,225,22,76, 45, 23, 206, 
154,3,173, 1641 

2860 DATA 154, 255,248, 
3,76,5,23,169,7, 141, 154,3, 
286, 152, 1792 

2878 DATA 3,173, 152,3,261,53, 
246, 3,76,5,23, 169, 1, 141, 
155,3,1461 

2880 DATA 266,202, 3,240, 1,9, 
169,26, 141, 262,3, 173,254, 
7, 261,33, 1951 


2898 DATA 208, 11, 169,35, 141, 
254,7, 169, 36, 141, 255,7,96, 
169,33, 141, 1872 

2966 DATA 254,7, 169,34, 141, 
255, 7, 96,238, 154,3, 173, 
154,3,261,8, 1897 

2916 DATA 248,3, 76,81,23, 169, 
6,141, 154, 3, 238, 152, 3,173, 
152,3, 1611 

2928 DATA 261,85,248,3,76, 81, 
23, 169,0, 141, 155, 3,266, 
262,3, 248, 1828 

2936 DATA 1,96, 169, 26,141, 
22,3, 173, 255, 7, 261,37, 
208, 11, 169, 49, 1733 

2940 DATA 141,254, 7, 169,39, 
141, 255, 7,96, 169, 38, 141, 
254,7, 169,37, 1924 

2956 DATA 141,255,7,96, 173, 
156,3,265, 233,3,16,3,76, 
142,23, 173, 1785 

2960 DATA 21,268, 45, 236,3, 
141, 21, 268, 96, 173,21, 208, 
13,252,3, 141, 1778 

2978 DATA 21,268,173, 233,3, 
56, 237, 15b,3,141,234,3, 
173,54,3, 41,1739 

2986 DATA 7,24, 109, 154,3,141, 
192,3,261,8,48, 9,56, 233,8, 
141, 1337 

2996 DATA 192,3,238,234,3, 


173, 234,3, 261, 1871 

‘3048 DATA 35, 16,37, 173,234,3, 
56,233,3, 141,234,3, 246, 11, 
172,234, 1825 

3058 DATA 3,169,6,24, 195,8, 
136,268, 256, 141, 162,3,175, 
16,208, 45, 1851 

3068 DATA 236,3, 141, 16,208, 
1b, 77,24, 173, 234, 3,56, 233, 
35,141,234, 1898 

3076 DATA 3, 172,234,3, 169,9, 
24, 105, 8, 136, 268, 258, 141, 
162,3,173,1791 

3986 DATA 16, 208, 13,232,3, 
141, 16, 208, 173, 162, 3,24, 
109,192,3, 141, 1644 

3098 DATA 162,3, 157, 12,268, 
173,157,3, 265, 153,3, 16,3, - 
Thy 111,24, 1466 

3100 DATA 173,721,268, 45,236, 
3,141, 21, 208,96, 173, 21, 
288, 13,252,3, 1882 

3118 DATA 141,21, 268, 173, 153, 
3,56, 287, 157, 3, 141,234, 3, 
173,234, 3, 1948 

3126 DATA 261,31, 16,226,173, 
234,3, 56,2331, 141,234,3, 
169, 0, 172, 1887 

3138 DATA 234,3, 24, 165,8,136, 
208, 256, 24, 199,55, 3,141, 
13,208, 141, 1662 


173, 234, 3,201, 48, 16, 195, 

3, 234, 3, 208, 2158 

DATA 17, 173,16, 268, 13, 
252,3, 141, 16, 268, 169,224, 
141, 162,3, 76, 1862 

3016 DATA 77,24, 201, 1, 208,17, 

173, 16,208, 13,232, 3,141, 

16, 268, 169, 1787 

720 DATA 232, 141, 162, 3,76, 

77,24, 261, 2,208, 17, 173 16, 

248, 13,252, 1785 

3038 DATA 3, 141,16, 268, 169, 
248,141, 162,3, 76, 77,24, 


3140 DATA 15, 268,96, 169,64, 
141, 232,3, 175, 152,3,141, 
233, 3, 169, 191, 1993 

3156 DATA 141,236,3, 162, 8,32, 
121,23, 169, 128, 141, 232,3, 
173, 152,3, 1719 

‘3160 DATA 24,105, 6,141, 233,3, 
169,127, 141, 236,3, 62,2, 
32,121, 23, 1528 

3178 DATA 96,173, 16, 268, 41, 
32,268, 23,173, 19, 208, 56, 
233,24, 162,0, 1663 

3188 DATA 56,233,8, 144, 4,232, 


7,229, 24, 142, 188,2,76,9, 
25,173, 1621 

3198 DATA 10, 268, 162,6,56, 
233, 8, 144, 4,232, 76, 249, 24, 
138,24, 165, 1673 

3260 DATA 28, 141,188, 2,173, 
11, 268,56, 233,50, 162,8,56, 
233, 8, 144, 1693 

3218 DATA 4, 232,76, 17, 25,142, 
189, 2, 169, 0,133, 187, 169, 4, 
133, 188, 1678 

3226 DATA 174, 189,2,248, 16, 
165, 187,24, 105,48, 133, 187, 
165, 188, 105, 0, 1920 

3258 DATA 133, 188,262, 268, 
240, 24, 165, 187, 199, 188, 2, 
133, 187, 165, 188, 105, 2424 

3240 DATA , 133, 188, 168,, 
177, 187, 141, 168, 2, 266, 266, 
177,187, 141, 169, 2238 

3250 DATA 2, 24,165, 187, 105, 
246, 133, 187, 105, 188, 195, 8, 
133, 188, 177, 187, 2186 

3266 DATA 141, 171,2,136, 136, 
177,187, 141, 176, 2,56, 165, 
187,233, 12, 133, 2157 

3278 DATA 187, 165,188, 233, 8, 
133, 188, 177, 187, 141, 172,2, 
266, 260, 177, 187, 2537 

3280 DATA 141,173, 2,96, 173, 
34, 208, 141, 182,3, 41,8, 208, 
1,96, 173, 1596 

3296 DATA 102,3, 41,32, 208,53, 
173, 102, 3,41, 192,208, 88, 
6, 169, 142, 1645 

ATA 141,256, 7, 169, 140, 
141,251, 7, 169, 8, 41,52,3, 
141, 86,27, 1725 

3319 DATA 32,128, 26, 206,5, 
208, 173,5, 208, 246, 13, 168, 
4,162, 0,262, 1772 

3326 DATA 268,253, 136, 268, 
248, 76, 184, 25, 76, 115, 26, 
173, 16,208, 41,32, 2625 

3338 DATA 248, 1,96,173, 11, 
208, 261,119, 16,1, 96,261, 
176,48, 1,96, 1669 

3340 DATA 173, 16,208, 261, 160, 
16,1, 96,261, 206, 48, 178, 96, 
173, 16,268, 1985 

3358 DATA 41,64,246,1, 96,173, 
13,268, 261, 116, 16, 1,%, 
261, 178, 48, 1679 

3360 DATA 1,96, 173,12, 208, 
201, 110,16, 1,9, 261,286, 
48, 144,96, 17341778 

3376 DATA 47,6, 261, 1,246, 13, 
261,2,248,9, 201,3, 248, , 
20144, 1634 


3B 


338 DATA 248, 1,96, 169,0,141, 
52, 3,173,53,3, 208, 13, 169, 
187,141, 1649 

3396 DATA 4,268, 169, 158,141, 
5, 208, 76,97, 26,261, 1, 208, 
13, 169, 158, 1834 

3406 DATA 141, 4,208, 169, 151, 
141,5, 268, 76, 97, 26,201,2, 
208, 8, 169, 1814 

3418 DATA 176, 141,5, 208, 76, 
97, 26, 169, 144, 141,5, 208, 
169,231, 141,21, 1952 

3428 DATA 208,169, 142,141, 
258,7, 169), 141,86, 27,32, 
128, 26, 16,0, 1686 

3436 DATA 162,8, 202,208, 253, 
136,268, 248, 76,65, 13, 169, 
59,141, 15,212, 2167 

3448 DATA 169,198, 141, 16,212, 
169, 17,141, 18,212, 96, 173, 
86,27, 268, 1, 1876 

3456 DATA 94,286, 107,27,248, 
1, 9,173, 96,27, 141, 107,27, 
189,2,141, 1658 

3460 DATA 106,27,174, 106,27, 
189,87,27, 248,57, 222,188, 
27, 208, 52, 189, 1838 

3478 DATA 97,27, 41,254, 188, 
103,27, 153, 4, 212, 138, 18, 
170,32, 29,27, 1512 

348 DATA 248,39, 172, 106,27, 
153, 100, 27, 185, 163,27, 168, 
32, 29,27, 153, 1588 

3496 DATA 8, 212,32,29, 27,153, 
1,212, 174, 166,27, 189, 97, 
27,9, 1,12%6 

3508 DATA 153,4,212,286, 106, 
27, 16, 186, 96,32, 108,27, 
189,91,27, 149, 1629 

3510 DATA 217, 189, 92,27, 149, 


248, 161,217, 208, 260, 181, 
217, 268, 2,214, 218, 2718 

3526 DATA 214,217, 169, 255, 
172,166, 27, 153, 166,27, 185, 
163,27, 168, 169, 6, 2692 

3530 DATA 153, 6, 212,153,1, 
212,246, 263, 246, 217,268, 2, 
246,218, 161,217, 2689 

3540 DATA 96, 169,0, 141, 86,27, 
162,2, 138, 19, 168,56, 185, 
91,27, 235, 1591 

3558 DATA 1,153,217,9, 185, 92, 
27,2330, 153, 218, 8, 202, 16, 
233, 169, 1899 

3566 DATA 1,141, 168,27, 141, 
101,27,141, 102,27, 141, 167, 
27, 141,86, 27, 1337 

3578 DATA 96,9,1,1,1,3,112, 
41,45, 43, 64, 31, 16,32, 128, 
6,614 

3586 DATA 6,0,9,7,14,0,0,173, 
97,27, 201 16,268, 31,169, 
79,1022 

3598 DATA 141,5, 212, 169,58, 
141, 12,212, 169, 161, 141, 13, 
212,169, 64, 141, 2028 

3460 DATA 97,27, 169,15, 141, 
244,244, 244, 244,244, 244, 
244, 244, 244, 244, 244, 3133 

4068 PRINT*CCLEARINEW* 
:PRINT*CDOWN2I 
LOAD +CHRS(34)+*PETE LOAD 
S*+CHRS (34) +", 8" 

4010 REN 88 CHANGE THE ,8 
TN ABOVE LINE TO ,1 IF 
YOU ARE USING TAPE $8 

4926 PRINT®CDOWN4RUN* 

430 POKE 631, 13:POKE 632,13 
:POKE 633, 13:POKE 198,3 
:PRINT*CHOME]* 


PROGRAM: PETE LOAD 3 


1ON=CX+A:POKE 76494L11640,| 
ARNEXT D 

2019 READ AIF ACDCK THEN PR 
INT*ERROR IN LINE*; 
2040+(L816) :STOP 

2026 NEXT L 

2080 DATA 141,3, 212, 169,32, 
41, 2,212, 96 19, 13, 141, 5, 
4 2,169, 18, 1727 

205. DATA 141,12,212, 1691, 
141,13, 212, 169, 16, 141,97, 
27, %6, 174,92, 1713 

2660 DATA 3,189, 218, 29, 133, 


122,169, 41,133, 123 162,27, 
32, 237,27, 174, 1819 

2078 DATA 93, 3, 189, 218,29, 
133,122, 162,28 32, 237,27, 
174,94, 3, 189, 1733 

2088 DATA 218, 29, 133, 122,162, 
29,32, 237,27, 174, 95,3, 189, 
218, 29, 133, 1830 

2090 DATA 122,162, 91,32,237, 
27,174, 9,3, 189, 218,27, 
133, 122, 162,92, 1889 

2166 DATA 32,237,27,96, 168,0, 
177,122, 157, 8, 32,232, 282, 
232, 268, 192, 2128 

2110 DATA 7,208, 243,95, 238, 
9b) 3,173, 96,3, 261, 18, 240, 
1,96, 169, 1889 


2126 DATA 6,141, 96,3,238,95, 
3,173, 95,3,201, 16, 249, 1, 
96,169, 1564 

2138 DATA 6,141, 95,3,238,94, 
3,173,94,3, 201, 10,240, 1, 
96,169, 1561 

2149 DATA 6, 141,94,3,238,93, 
3,173,93,3,201, 10,248, 1, 
96,169, 1558 

2156 DATA 6,141, 93, 3,238, 92, 
3,173,92,3,201, 18, 248,1, 
9, 169, 1555 

2166 DATA 6, 141,92,3,95, 169, 
1,141, 25, 208, 141, 18, 208, 
141,26, 268, 1618 

2176 DATA 128, 169, 162,141, 28, 
3, 169,28, 141, 21,3,88,95, 
169, 1,141, 1412 

2186 DATA 25,268, 141, 18,268, 
76,49, 234, 169, 1, 141,33, 
208, 169,68, 141, 1821 

2196 DATA 32,268, 169, 255, 141, 
21,268, 169,223, 141, 29, 208, 
169, 239, 141, 23, 2376 

2260 DATA 208, 169,60, 141,1, 
208, 141,3, 208, 16,48, 141, 
6, 208, 169, 88, 1954 

2210 DATA 141,2,208, 169, 15, 
141,39, 208, 141, 48, 268, 169, 
15,141, 41,268, 188 

2226 DATA 141, 42, 268, 169, 69, 
141,28, 208, 149, 10, 141,37, 
208, 169,9, 141, 1881 

2238 DATA 38, 268, 169,20, 141, 
24,268, 162,128, 142,248,7, 
232, 142,249, 7, 2125 

2248 DATA 169, 31,32, 218, 255, 
169, 147, 32, 210, 255, 169,27, 
141,17, 268, 169,241 

2250 DATA 8, 141,22, 268, 173, 
97,27, 41, 254,141, 97,27, 
173,98, 27, 41, 1575 

2266 DATA 254, 141,98, 27,173, 
99,27,41, 254, 141, 99,27, 
169,9, 141, 6, 1697 

2276 DATA 212, 141, 13,212,141, 
26,212, 169, 142, 141, 258,7, 
169, 140, 141, 251, 2361 

2280 DATA 7,169, 186,141,4, 
208, 141-6, 208, 169,115, 141, 
5, 268, 169, 157, 2628 

2296 DATA 141,7,208, 169,32, 
141, 16,208, 149,09, 141,44, 
208, 169, 152, 141, 1946 

2366 DATA 253, 7,169, 20, 141, 
10, 208, 169, 140, 141, 11,288, 
169, 8,141, 8, 1795 

2318 DATA 268, 141, 9,208, 169, 
128, 141,248, 7, 169, 129, 141, 
249, 7,162,37,2153. 


2328 DATA 142, 255,7,232, 142, 
254, 7, 169,44, 141, 12, 208, 
189,92, 141, 14, 2029 

2530 DATA 208, 169, 148, 141,13, 
208, 141, 15, 28, 169, 11, 141, 
45,208, 141,46, 2004 

2348 DATA 268,32, 167,27, 24, 
164,15, 162,3, 32, 248, 255, 
162, 6, 189, 228, 1964 

2350 DATA 29,32, 216,255, 232, 
224, 23, 268, 245, 24, 168,5, 
162, 22,32,248, 2163 

2368 DATA 255, 162,9, 189,251, 
29,32,216, 255, 232,224, 38, 
208, 245, 173, 0, 2495 

2378 DATA 226, 41, 16,208, 249, 
169), 141, 17,268, 141, 16, 
208, 169,211, 141, 2155 

2389 DATA 29,208, 169, 227, 141, 
23,208, 9, 169, 176, 133, 251, 
169, 114, 133, 252, 2498 

2396 DATA 162,48, 168, 8, 189, 25, 
30,145, 251,232, 266, 192,17, 
208, 245, 165, 2221 

2466 DATA 251,24, 105, 126, 133, 
251,165, 252, 105, 6, 133, 252, 
224,176, 208, 226, 2619 

2410 DATA 96, 32, 39, 46,53, 68, 
67, 74,81,88, 95,86, 79,76, 
65,82, 1113 

2428 DATA 32,86, 69, 84, 69,32, 
£66489, 32, 73, 65, 78,32, 80, 
79,84, 1044 

2436 DATA 84,83, 86, 82, 69,83, 
83,32,76,73, 82, 69, 32,84, 
79,32, 1117 

2446 DATA 83,84, 65,82, 84,32, 
80,79, 76, 65,82, 32,80, 69, 
84,69, 1146 

2459 DATA 9,8,8,8,0,0,8,0,0, 
255, 146, 147, 0,9, 8, 8,548 


2476 DATA 8,9,0,0,0,6,0,0, 
154, 155, 156, 157, 158, 159, 
160,161, 1268 

2486 DATA 162,8,0,0,8,9,8,0, 
163, 164, 165, 166, 167, 168, 
169, 176, 1494 

2496 DATA 171,172,173, 0,0,0, 
60,0, 174, 175, 176,177, 178, 
179, 188, 1755 

2506 DATA 181, 182,183, 184,0, 
4,185, 186, 187, 188, 189, 198, 
191,192, 193, 194, 2625 

2510 DATA 195, 196,197, 198, 
199, 266, 261, 262, 263, 204, 
205, 266, 267, 208, 269, 218, 
3248 


SS ee 


2526 DATA 211, 212,213,214, 
215, 216,217, 218, 219, 228, 
221,222,223, 224, 225,226, 
46 

2536 DATA 227,228, 229,236, 
231,282,233, 234, 6,9,,8, 
235,234,237, 238, 2798 

2540 DATA 239, 246, 241,242, 
243, 244,245, 246, 247,9,8,9, 

52187 

2550 DATA 248, 249,258, 251, 
252, 253,254, 9, 6,0,0,,8, 
234, 234, 234, 2459 

2560 DATA 234,234, 234,234, 
234, 234, 234, 234, 234,234, 
234, 234, 234, 234, 234,234, 
3744 

2576 DATA 234,234,234,234, 
234, 234, 234, 234, 234, 234, 
234, 234, 254, 234, 234, 254, 
3744 

2586 DATA 234,234, 234,234, 
234, 234,234, 234, 234, 234, 
234, 234,234, 234, 234,234, 
3744 

2590 DATA 234,234, 234,234, 
234, 234,234, 234, 234,234, 
234, 254,234, 234, 234,234, 
3744 

2600 DATA 234,234, 234, 234, 
234, 234,234, 234, 234, 234, 
234, 254, 234, 234, 234,234, 
a4 

2610 DATA 234,234, 234,234, 
234, 234,234, 234, 234, 234, 
234, 234, 234, 234, 234,234, 
3744 

2626 DATA 234,234, 254,234, 
234, 234,234, 234, 234, 234, 
234, 254, 234, 234, 254, 234, 
3744 

2630 DATA 234,234, 254,234, 
234, 234, 234, 254, 6,0,2,5,8, 
64,0,0, 1958 

2649 DATA 2,148, 98,2, 41, 
128,461,128, 46,2,41 
126 

2650 DATA 148,58,2,41,52,1, 
126, 4b, 1,126, 46,2, 41,52,2,] 
149,864 

2660 DATA 58,2,41,52,1,128, 
4b, 1,128, 44,2, 41,52,2, 149, 
58,782 

2670 DATA 2,41,52,4, 120,462, 
148,58,2, 41,52, 1,128, 441, 
728 

2680 DATA 126,46,2,41,52,2, 
140,58, 2, 41,52, 1,126, 46,1, 
126,044 

2690 DATA 46,2,41,52, 2,148, 


58,2, 41,52, 1,126, 46, 1,128, 
46,778 

2706 DATA 2,41,52,2,148,58,2, 
41,52, 4,126, 46,8,8,255,9, 
815 

2710 DATA 255, 6,255, 0,255, 0, 
255, 9,174, 1, 186, 83, 74,69, 
10,84, 1757 

2726 DATA 49,9, 184, 1,132,56, 
234, 254, 234, 234, 254,234, 
234, 234,234, 234, 2762 

2736 DATA 234,234, 234, 234, 
234, 254,234, 234, 234, 234, 
234, 254,234, 254, 234,234, 
3744 

2748 DATA 234,234,234, 234, 
234, 234,234, 234, 234,234, 
234, 254,234, 254, 234,234, 
374 

2758 DATA 234,234,234, 234, 
234,234, 234, 66,68, 68, 102, 
162, 102,96, 96 192, 2418 

2766 DATA 60,96, 162, 6, 9, 182, 
102,102, 162,66, 66, 68,,8, 
4,8, 48 

2776 DATA 9,6, 66,66, 60, 102, 
102, 102, 162, 102, 182, 192, 
182, 102, 162, 192, 1302 

2786 DATA 102, 162,162, 102, 68, 
£0, 68,0,0,0,9,0,0,0,,0, 
588 

2796 DATA 8,6,8,6,0,0,8,124, 
126,8, 102,96, 6, 182, 96,8, 
646 

2868 DATA 124, 126, 8, 182, 9,8, 
102, 9659, 182, 126,8,9,9,0, 
4,868 


524, 66, 66, 24, 
102,102,126, 6, 182,24, 68, 
102,24, 96,986 

2820 DATA 102,24, 96, 182, 126, 

9,9,8,8,8, 


2830 DATA 9,0,8,8,0,8,8,8, 12, 
9,32, 255, 192, 171,255,192, 
1109 

2846 DATA 171,255, 248,171, 
255, 248, 178, 255, 252, 178, 
255, 252,42, 255, 252, 42,3277 

2858 DATA 255, 255, 42,191,255, 
10,191,255, 96, 175, 255,86, 
175,255, 86, 171, 2747 

2860 DATA 255,86, 171,255, 1, 
171,255, 1, 178,255, 1, 196, 

90, 176, 2245 

562, 176,863, 192, 

5,8, 63,192,0,255, 240, 6, 
255,252, 1750 

2889 DATA 3,250, 252,3,258, 
252, 15,254, 252,7,235.252. 


5,171, 252,5, 2438 

2898 DATA 111,252,5,95,252, 9, 
127,250, 42, 255, 234, 42, 178, 
178,42, 178, 2226 

2900 DATA 168, 2,178,168, 0, 
255,192, 8, 63,0,0,63, 8,2, 
1760, 1245 

ATA 16, 178,018, 178,8, 

163, 192,08, 255, 246, 8, 
285, 252, 1617 

2926 DATA 3,258,252,3,258, 
252, 15, 258, 252, 15, 256, 252, 
15, 258, 252, 15, 2575 

2930 DATA 256, 252, 15,245,252, 
11,213, 258, 42,213, 234, 42, 
178,178, 42, 178, 2571 

2940 DATA 168,2,178, 160,8, 
255, 192, 8, 255, 192, 8,243, 
246, 16, 240, 232, 2367 

2958 DATA 19,162, 168,2,162, 
168,0,0,63, 192, 8,255, 248, 
6,255, 252, 1921 

2960 DATA 3,258,252,3,258, 
252, 15, 250, 188, 15, 254, 188, 
15,254,172, 15,2376 

2976 DATA 255, 148, 15, 255,84, 
11,253, 86, 42,253, 98,42, 
178,178, 42, 178, 2086 

2986 DATA 168,2,178, 168, 0, 
255, 192, 35, 255, 248, 43,243, 
248,43, 192,232, 2478 

2998 DATA 42,194, 168, 19,2, 
166,6,0, 48,0, 3,255,8,3, 
255, 234, 1382 

3000 DATA 15,255,234, 15,255, 
234, 63,255, 178, 63, 255, 178, 
63, 255, 168, 255, 2725 

3010 DATA 255, 148, 255,254, 

168,255, 254, 169, 255, 258, 

165, 255, 258, 149, 255, 234, 

3582 

6 DATA 149,255,234, 149, 

255, 234, 64, 255, 178, 64,63, 

169, 64, 14, 165, 8,2304 

DATA 14,188, 8,3, 252,8,8, 
3,252, 6,15, 255, 9, 63, 255, 8, 
1386 

3040 DATA 63, 175, 192,63, 175, 
192, 63,171,240, 63, 235, 208, 
43,234, 86, 63, 2286 

3058 DATA 249,86, 63, 245,88, 
175,253, 96,171, 255, 168, 
176, 176, 168,42, 170, 2585 

3460 DATA 168, 10, 178, 128,3, 
255, 8,8, 252, 8, 8,252, 0,8, 
170,128, 1536 

3678 DATA 8,178, 168,, 178, 

13,252, 8, 15, 255, 8, 63, 
255, 0, 1563 

3080 DATA 63,175, 192,63,175, 


2 


192,63, 175, 248, 63, 175,248, 

83,175, 248, 63, 2357 

16 DATA 175,246, 63, 95,248, 

175,87,224, 171, 87, 168, 178, 

176, 168,42, 176, 2445 

3160 DATA 168, 18,178, 128,3, 
255, 6,3, 255, 9, 15, 267,32, 
43,15, 168, 1464 

3118 DATA 42,138, 166, 18, 138, 
128,8,3,252,0,15,255, 8,63, 
255, 6, 1459 

3128 DATA 63, 175, 192,63, 175, 
192, 62,175,240, 62,191, 248, 
58,191, 246,22, 2341 

3136 DATA 255,246, 21,255, 248, 
149, 127, 224, 165, 127, 168, 
176,176, 148, 42, 178, 2691 

3148 DATA 168, 19, 178, 128,3, 
255, 8, 15, 255, 208,47, 267, 
232, 43,3, 282, 1968 

3156 DATA 42,131, 168, 19, 128, 
166,6,8, 49,9, 2,198, 128, 19, 
255, 160, 1424 

3486 DATA 11,255, 224, 43,255, 
252,47, 255,248, 175,255, 
250, 175,255, 258, 175, 3165 

3176 DATA 255, 256, 175, 255, 
256, 175, 255, 258, 175, 255, 
256, 175, 255, 256, 175, 255, 
3655 

3186 DATA 256, 175,255, 250, 43, 
255, 232,43, 255, 282, 42, 255, 
168, 16, 198, 168, 2815 

3198 DATA 2,176, 128, 6, 176, 6, 
9,6,255,8, 43,255, 232,43, 
255, 232, 1785 

3206 DATA 175,255, 250,175, 
255, 250, 175, 295, 245,175, 
255, 245,95, 255, 245, 95, 3408 

3219 DATA 255, 246,95, 255, 248, 
47, 255, 248, 43, 255, 232, 42, 
176, 168, 42, 178, 2757 

3220 DATA 168, 10,17, 18,3, 
195,192, 3,195,192, 16,131, 
192,10, 131,192, 1954 

3230 DATA 8,2, 168, 8,2, 168,8, 
6, 255, 8, 43, 255, 232, 43, 255, 
232, 1639 

3240 DATA 175,255, 258, 175, 
255, 250,175, 255, 256, 175, 
255, 256, 95, 255, 245, 95, 3410 

3256 DATA 255,245, 95, 255, 245, 
47, 255, 248, 43, 255, 252,42, 
176, 168,42, 178, 2767 

3266 DATA 168,10, 178, 168,3, 
195, 192,3,195,192,3, 195, 
192,3, 195, 192, 2068 

3278 DATA 16,138, 166, 18,138, 
166,8, 0,255, 0, 43,255,232, 
43,255,232, 1915 


ae cee 


3286 DATA 175,255, 250, 175, 
255, 256, 95, 255, 258, 95, 255, 
256, 95,255, 245, 15,3178 

3290 DATA 255, 245, 15, 255,245, 
47,255, 248, 43, 255, 232, 42, 
176, 168, 42, 176, 2687 

3306 DATA 168, 16,178, 166, 3, 
195, 192,3, 195, 192,3,194, 
166,3,194, 160, 2682 

3318 DATA 19, 128, 6, 19, 128, 8, 
6,6, 176, 62,178,128, 19, 
196, 168, 1168 

3328 DATA 10, 255, 166, 43,255, 
232,43, 255, 232, 175,215, 
256, 175, 85, 250, 175, 2808 

3336 DATA 215, 122,173,215, 
122,173,125, 122, 173,215, 
122,173,215, 122, 173,215, 
2675 

3340 DATA 122,165, 125,90, 41, 
215, 104,41, 125, 104, 42,85, 
168, 18,178, 160, 1767 

3358 DATA 2,176, 128,8,176,0, 
253, 0,0,0,6,0,0,0,0,8, 723 

6, 


9 0,5,8,8,8, 

6,5,6,5 

3386 DATA 8, 63, 255, 255, 63, 
255, 255, 63, 255, 255, 131, 0, 
12,163, 6, 12,2637 

3396 DATA 42,178,178, 19,178, 
176,8, 168, 176, 168, 138, 128, 
16, 168,2,2, 1678 

3406 DATA 128,32,34, 130, 8,2, 
128,2,34, 128, 32,2, 1348, 
34, 128,958 

3419 DATA 8,2, 138, 0,138, 128, 
6,8, 130,34, 16, 166,0,34,42, 
178,994 

3426 DATA 176, 63, 255,255, 63, 
255, 255, 63, 255, 255, 131,, 
12,163, 8, 12,2267 

3439 DATA 42, 178,176, 19, 178 
178,6,8,0,6,6,9,0,0,9,9, 
732 

3448 DATA 0,0,0,0,0,8,0,0,8, 
5,0,0,0,0,8,8,8 


4,6,0,0,8,8,8, 

3486 DATA 9,255, 255, 252, 255, 
285, 252,255, 255, 252,48, 0, 

94,48, 8, 262, 2778 

DATA 178, 176, 168, 178, 
176, 186, 0,42, 178,42, 160, 2, 
162,128, 128, 16, 1852 

3486 DATA 134,8,2,128,0, 138, 
136, 128, 2,128, 8, 2, 134,6, 
34, 128, 1106 

3490 DATA 32,2,162,8,136,32, 


ye 


a 


4,2, 168, 136, 130, 136, 9,18, 
176, 176, 1272 

3568 DATA 168,255, 255,252, 
285, 255, 252, 255, 255, 252, 
48,0, 194, 48,0, 262,246 

3510 DATA 176, 176, 168,178, 
170, 168,8, 128,0,2,128, 0, 2, 
143, 255, 242, 1968 

3526 DATA 191,255, 254, 143, 
285, 254, 143, 255, 242, 143, 
255,242, 143, 255, 242, 143, 
U5 

3536 DATA 255, 242, 143, 255, 
242, 143,255, 242, 143, 255, 
242, 143, 255, 242, 143, 255, 
455 

3546 DATA 242, 143, 255, 242, 
143, 255, 242, 143, 255, 242, 
143, 255, 242, 191, 255, 254, 
3562 

‘3550 DATA 191,255, 254, 143, 
255, 242,0,128,6, 2,142, 178, 
162, 138,6, 34, 2116 

‘3568 DATA 186,32, 46,136, 2,46, 
136,128, 34, 136, 6,34, 136, 


32,162, 136, 1382 

3570 DATA 8,34, 138, 128, 34, 
142, 0, 34,138, 8, 162, 138,34, 
34, 136,8, 1168 

3589 DATA 34, 136, 34,34, 138,, 
34,136, 32, 162, 136,6,34, 
184,136, 46,1276 

3596 DATA 184, 0,174,138, 170, 
178, 8, 143,255, 242, 191,255, 
254, 191,255, 254, 2864 

3408 DATA 143, 255, 242, 143, 
285,244, 244, 244, 244, 244, 
244, 244,244, 244, 244, 244, 
3722 

4000 PRINT*CCLEARINEW" 
:PRINT®CDOWN2] 
LOAD" +CHRS (34) +*PETE LOAD 
4A" +CHRS (34) +", 8° 

4910 REN 34 CHANGE THE ,8 
IN ABOVE LINE TO ,1 IF 
YOU ARE USING TAPE $8 

4026 PRINT*CDOWNAIRUN* 

4039 POKE 631, 13:POKE 632,13 
SPOKE 633, 13:POKE 198,3 
SPRINT CHOME]* | 


+A: POKE 9549+L 31640, 


2616 READ Az IF ACDCK THEN PR 
INTTERROR IN LINE*; 
2048+ (L416) :STOP 

2026 NEXT L 

2046 DATA 255,242, 143,255, 
242, 143, 255, 242, 143, 255, 
242, 143, 255, 242, 143, 255, 
3455 

2056 DATA 242, 143, 255, 242, 
143, 255, 242, 143, 255, 242, 
143, 255, 242, 143, 255, 242, 


Buys 


2066 DATA 143, 255, 242,143, 
255, 254,191, 255, 254, 143, 
255, 242,128,6,2, 128, 2898 

2078 DATA 6,2,8, 138,178,178, 
184,8, 174, 184, 136,46, 136, 

6, 34, 136, 1518 

2088 DATA 32, 162,138,0,34, 
136,34, 34, 136, 8,34, 138, 34, 
34,138, 8, 1084 

2096 DATA 162, 142,0,34, 138, 
128,34, 136,8,34, 136,32, 
162,136, 6,34, 1316 

2108 DATA 136, 128,34, 136,2, 
4b, 186, 32,46, 138, 8,34, 142, 
176,162, 128, 1528 

2116 DATA 6,2,234,6,8,8,8, 


4,6,178,9,2,176, 128,2, 748 


2126 DATA 48, 128,2,48, 128, 18, 
156, 160,42,85, 168, 42,85, 
168, 178,26, 1438 

2138 DATA 176, 168,28, 42, 168, 
26,42, 168,8,42,168,,42, 
168,0,42,1 

2148 DATA 138, 8, 162, 18,0, 162, 
2,138, 162,21, 166, 128,21, 
45,84,8, 1191 

2156 DATA 1,84,6,9,9,0,8,40, 
6,6, 178, 8, 2,178, 128, 2,597 

2160 DATA 49, 128,2,49, 128, 16, 
156, 168, 42,85, 168, 42,85, 
168, 178,26, 1438 

2178 DATA 170, 168, 28,42, 168, 
26,42, 168, 8,42, 168, 8,42, 
168, 8,42, 1268 

2186 DATA 138, 0, 162, 1388, 
162, 2,138, 168, 2,178, 128, 
21, 65,84, 21, 1383 

2196 DATA 65,84, 6,0,6, 00,48, 

178, 2,178, 128, 2, 661 

268 DATA 48,128,2,48, 128, 18, 
150, 166,42, 85, 168, 42,85, 
168, 178,26, 1438 

2210 DATA 176, 168, 28,42, 168, 
20,42, 168, 8,42, 168, 9,42, 
168,0,42, 1260 

2226 DATA 138,.,162,138,8, 
166, 138, 138, 128,2, 169,04, 
21, 65,84, 21, 1440 

2236 DATA 64, 8,0,0,0,0,0,48, 
4,0, 176,8,2,178, 128, 2,576 

2240 DATA 178,128, 2,178,128, 
16,178, 168, 42,176, 168,42, 
176, 168, 178, 170, 2638 

2258 DATA 176, 176, 170, 178, 
178,170,178, 178,176,178, 
170, 178, 176, 178, 176, 178, 
20 

2260 DATA 138, 178, 162, 19,178, 
162,2,176, 162, 21, 196, 128, 
21,65, 84,8, 1571 

2278 DATA 1,840 40, 
6,6, 178,8,2, 170, 128, 2,597 

2288 DATA 178, 128, 2,176,128, 
16,178, 168, 42,178, 168,42, 
178, 168,178, 178, 2638 

2290 DATA 178, 178,178,178, 
170,179, 178, 178, 178, 178, 
176,170,170, 178, 178,178, 
2728 

2360 DATA 138, 178, 162,138, 
176, 162, 19, 176, 166,2, 178, 
128,21, 65,84, 21,1771 

2516 DATA 65,84, 0,0,0,6,6,48, 
5,8, 178, 8, 2,178, 128, 2, 661 

2326 DATA 178, 128, 2,178, 128, 
16,178, 166, 42, 178, 168, 42, 
170,168, 176, 176, 2038 


DUET 


EE, Seas Se ee 


2338 DATA 178, 178,178,178, 
176, 176, 176, 174, 176, 17 
176,176,176, 170, 178,176, 
2726 

2548 DATA 138,170, 162,138, 
176, 168, 138, 178, 128, 2,169, 
84, 21, 65,84, 21, 1828 

2558 DATA 64,0,6,9,0,9,9,42, 
6, 6,176, 128,8, 178, 128, 2, 
4 

2586 DATA 42, 168,2,42, 168, 6, 
176, 168, 21, 178, 168, 85, 178, 
168,85, 178, 1787 

2378 DATA 168, 2,16, 168,82, 
168,8, 10, 168,8,19, 168,8, 
16, 168, 1984 

2588 DATA 8, 18, 168,2, 10, 168, 
5,138, 168,5, 166, 148, 1,81, 
94, 8, 1182 

2596 DATA 81,88,0,0,,8,0,42, 
4,8, 178, 128, 8, 178, 128, 2, 


1 

2406 DATA 42, 160, 2,42, 168, 6, 
176, 168, 21, 178, 168, 85, 178, 
168,85, 178, 1787 

2416 DATA 168,2, 16, 168,82, 
168,8, 16, 168,8, 16, 168,8, 
16, 168, 1684 

2428 DATA 8, 18, 168, 2,18, 168, 
6,138, 168, 1, 106, 144, 1,85, 
88, 6, 1089 


6,8, 178,128,8, 
861 

2440 DATA 42, 160,2,42,168, 6, 
176, 168, 21, 178, 168,85, 178, 
168,85, 178, 1787 

2458 DATA 168,2, 16, 168,8,2, 
168,8, 16, 168,8, 16, 168, 8, 
18, 168, 1684 

2406 DATA 8, 19, 168, 2, 18, 168, 
8, 138, 168,8,42, 169, 1,85, 
41,1025 

2478 DATA 85,64,8,9,8,9,8,8, 
6,8, 0, 255, 255, 255, 255, 255, 
1424 

2486 DATA 255,255, 255,255, 
192,192,192, 192,48, 48, 192, 
243, 12,8,0,9,2331 

2498 DATA 8,8,8, 192, 63,12, 12, 
48,48, 12,48, 63, 192, 192, 
204,192, 1278 

2500 DATA 192,240, 192,243, 12, 
6,6, 12,243,0,0, 255, 6,6, 48, 
9,1437 

2510 DATA 0, 66,8, 195, 63,3, 
243,3,51,3,3, 192, 192, 48, 
48,48, 1152 

2526 DATA 192,204, 192,3,48, 0, 
4,12, 192,3,6,3,51,3,284, 


264, 1311 

2538 DATA 12,12,51, 192,204, 
204, 264, 192, 48, 195, 192,3, 
3,51,51,51, 1665 

2540 DATA 3,15,3,255, 192,264, 
192, 192, 195,48, 15, 195,48, 
6, 195,6, 1764 

2558 DATA 48,0, 255, 243, 12, 48, 
6,12,9,248, 15, 252,3,51,3, 
3, 1185 

2566 DATA 51,3,252,3,3,12,12, 
48,48,0,8,8,0,0,3,12,447 

2576 DATA 48, 192, 192,0,15, 
246,0,9,8,0,0,255,9,6,8,0, 
942 


2588 DATA 0,8,8,8,248, 15,08, 
6,0,0,0,8,8, 192,48, 495, 
2598 DATA 12,3,3,192,192,48, 
48, 12, 12,0,9,234, 234, 234, 
234, 234, 1692 

2606 DATA 234, 234,234,234, 
254, 234, 234, 254, 234, 234, 
234, 234, 254, 234, 254,234, 
374 

216 DATA 234,234, 234, 234, 
234, 234, 234, 234, 234, 234, 
234,234, 234, 234, 254, 254, 
3744 


2626 DATA 234, 254,234,21,21, 
21,21,21,21, 21, 21,84,84, 
84,84, 84, 1290 

2630 DATA 84,84, 84, 255, 192, 
267,264, 267, 204, 192, 255, 
255, 6,195, 204, 267, 2829 

2640 DATA 12, 0,255, 255, 0,15, 
264, 264, 267, 8, 255, 255,3,3, 
195,195, 2058 

2658 DATA 3,3, 255, 69,102,102, 
182, 102, 162, 60,24, 24, 126, 
24,24, 24, 1131 

2660 DATA 126, 66,102,666, %, 
96,126, 48, 192, 6,28, 6,182, 
66,12, 1088 

2676 DATA 28, 66, 168, 126,12, 
12, 126,96, 124, 6, 182,68, 
68, 162,96, 1124 

2686 DATA 124,102, 102, 60,126, 
646,12524, 24,24, 68,102, 
162,68, 102, 1836 

2690 DATA 102, 68,68, 102, 102, 
42,6, 102, 66,234, 234, 234, 
234, 234, 234, 234, 2274 

2766 DATA 234,234, 234,2, 238, 
21,2, 137,19, 2, 104, 17,2, 
104,17,2,1369 

2716 DATA 74,29, 2,28,26, 2,68, 
23,2; 66,23, 2,238, 21,2, 137, 
uu 

2728 DATA 19,2,164,17,2,104, 
17, 2,137, 19,2,238,21, 4, 


238, 21,947 

2736 DATA 2, 238,21,2, 137,19, 
2,104, 17,2, 104, 17,2,70,29, 
2,768 

2746 DATA 26, 26, 2,68,23,2, 66, 
23,2, 164, 17, 2,137,19,2, 
238,737 

2758 DATA 21,2,238, 21,2, 137, 
19, 6,164, 17,2,238, 21,2, 
137,19, 986 

2786 DATA 2,104, 17,2,104,17, 
2,70,2%,2,20,26,2,68, 23,2, 
482 


2776 DATA 68,23, 2,238, 21,2, 
137, 19,2, 104, 17,2, 104,17, 
2,137,887 

2786 DATA 19,2, 238, 21, 4,238, 
212,238, 21, 2,137, 19,2, 
194,17, 1085 

2798 DATA 2,104, 17,2,76,29,2, 
26, 26,2, 66,23, 2, 60, 23,2, 
444 

2808 DATA 104,17,2,137,19,2, 
238, 21,2, 238, 21,2, 137,19, 
6, 184, 1069 

2816 DATA 17,2,238,21,2, 69, 
23,2,20,26,2,28, 262,78, 
29, 560 

2826 DATA 2,226,32,2,268,34, 
2, 268, 34, 2,238, 21,2,40, 23, 
2, 1098 

2838 DATA 26, 26,2,28,26,2, 
137,19,2, 238, 21, 4, 238, 21, 
2,258, 1616 

2848 DATA 21,2, 68,23, 2,26, 26, 
2,28, 26, 2,78, 29,2, 2: 
57 


32, 


2850 DATA 2,208, 34,2, 268,34, 
2, 104,17, 2,119, 16,2, 163, 
14,2,926 

2866 DATA 163, 14,2,137,19,2, 
138,19, 4, 104, 17,2, 238, 21, 
2,66, 942 

2876 DATA 23,2,26, 26,2, 28,26, 
2,78, 29,2, 226,32, 2,268, 34, 
118 

2888 DATA 2,268,34, 2, 
2,66, 23,2, 28,26, 2, 
688 

2896 DATA 137,19,2,238, 21,4, 
238, 21, 2,238, 21, 2,69, 23,2, 
20,1048 

2900 DATA 26, 2,26, 26,2, 78,29, 
2,228,322, 268, 34, 2,208, 
34,917 

2918 DATA 2,104,17,2,110, 16, 
2,163, 1452, 163,14, 2,137, 
19,2,769 

2928 DATA 138, 19,4,184,17,2, 
238,21,2,137,19,2,104,17, 


238, 21, 
20, 26,25 


2,104,936 

2930 DATA 17,2,78,29,2,26, 26, 
2,66, 23,2, 60,23, 2,238, 21, 
597 


2940 DATA 2,137, 19,2, 104,17, 
2,104, 17,2, 137,19, 2,238, 
21,4,827 

2950 DATA 238, 21,2,238,21,2, 
137,19, 2,104, 17,2, 104,17, 
2,78,996 

2960 DATA 29,2,26, 26,2, 60, 23, 
2,60, 23, 2,104, 17,2, 137,19, 
528 

2978 DATA 2,238, 21,2,238,21, 
2,137, 19, 6,184, 17,64,,9, 
6,871 

2986 DATA 4,238,21,2, 104,17, 
2,164417,4,78, 29, 2,68, 23, 
2,699 

2996 DATA 60,23,4,238, 21,2, 
164,17, 2,104, 17,4, 137,19, 


4,238,994 

3086 DATA 21,4,238,21,2, 164, 
17,2, 164, 17,4,70,29, 2,48, 
23,718 


3010 DATA 2,60,23,4,14,17,2, 
238, 21,4, 238,21, 6, 164,17, 
4,865 

3026 DATA 238,21,2, 104, 17,2, 
104, 17,4, 70,29, 2,68,23,2, 
60,755 

3030 DATA 23, 4,238, 21,2, 104, 
17,2, 1044 17,45 137, 19,4, 
238, 21,955 

304 DATA 4,238, 21,2, 164,17, 
2,104, 17, 4,78, 29,2, 66,23, 
2,699 

DATA 60,23, 4, 184, 17,2, 
238, 21, 4,238, 21, 6, 164,17, 
4,238, 1101 

3068 DATA 21,2, 104, 17,2,104, 
17,4,76,29, 2,68, 23,2, 68, 
23,548 

3078 DATA 4,238, 21,2, 164,17, 
2,104, 17,45 137, 19, 4,238, 
24,4, 936 

3080 DATA 238, 21,2,104,17,2, 

104,17,4,70,29,2,60,23, 2, 

66,755 


DATA 23,4, 164, 17,2,238, 
21,4,238,21, 2,138, 19,4, 
104,17, 956 

3100 DATA 4,238,21,2,164,17, 
2,104, 17,4,78,29,2, 68,23, 
2,699 

3116 DATA 60, 23,4,238, 21,2, 
104, 17,2, 104, 17,4, 137, 19, 
4,238,994 

3126 DATA 21,4,238, 21,2, 104, 
17, 2,164, 17,4,70,29, 2,60 


| eee pease eS 


23,718 

3138 DATA 2,60, 25,4, 164, 17,2, 
238, 21,4,238, 21, 2, 138,19, 
4,897 

3140 DATA 164, 17,4,238, 21,2, 
164, 17,2, 184, 17,4,78,29,2, 
60,795 

3156 DATA 23, 2,60, 23, 4,238, 
212,164, 17,2, 104, 17,4, 
137,19,777 

3168 DATA 4,238, 21, 4,238, 21, 
2,164, 17,2, 184, 17,4,70,29, 
2,877 

3178 DATA 68, 23,2, 69,23)4, 
104, 17,2,238,21,4,238, 21, 
6,164,927 

3186 DATA 17, 64,6,6,6,254,, 
4, 2,6,0,64,9,0,2, 140,543 

3196 DATA 58,2,41,52, 1,126, 
4b, 1,126, 46,2,41,52,2, 148, 
58,782 

3206 DATA 2,41,52,8, 
4,255, 6,8, 6 

3210 DATA 4,192, 63,8,8,9,3, 
15, 66, 60,264, 15,48, 192,6, 
9,852 

3226 DATA 192, 68,3,3,3, 12,12, 
12,12, 12,252, 48,48, 12,12, 
12,705 

3258 DATA 12, 12,15,248, 12,3, 
6,5,3, 68, 192,6,8,8, 192, 
246, 981 

3249 DATA 12,12,3,0,3,3,15, 
12,60, 68, 284, 248, 48, 192, 
192, 192, 1248 

3256 DATA 48,15,0,0,0,3,3,3, 
3,5, 255,207, 192, 6,8,8, 732 


3260 DATA 9,8,8,255,12, 12,12, 
12, 12,12)12,248,8,8, 0,0, 
579 

3270 DATA 9,,6, 192, 192,48, 
48,48, 48, 48, 63,3,3,3,3,3, 
182 

3280 DATA 12,248, 192,6, 192, 
192, 246, 48, 66, 66,51,0,0,3, 
3,12, 1305 

3290 DATA 12,12, 48, 264,248, 
240, 48, 15,8,8,0,0,0,3,3,3, 
828 

3300 DATA 243,207, 192,195, 
192,9,0,0,9,8, 252, 249, 15, 
12,12, 12,1572 

3318 DATA 12,12, 12, 12,255,8, 
6,6,0,0,0,15,252,12, 12,12, 
686 

3328 DATA 12,12,12,192,0,0,0, 
6,6,0,63, 192,192, 48,48, 48, 
819 

3338 DATA 63,24,0,51, 15, 15, 
12, 246, 192, 192, 192,4,0, 
192,192, 48, 1644 

3548 DATA 48,48, 12, 48, 69,51, 
192,192, 192, 192, 192, 8,0,6, 
192,48, 1467 

3350 DATA 63, 48,48, 192, 192, 
192,192, 192, 192, 248, 15,3, 
3,3,3,3, 1581 

3340 DATA 3,3,3,252, 15,8, 
6, 6,6, 0,255, 12,12, 12,567 

3378 DATA 12,12, 12, 15,248,8, 
6,6, 6,0,0,240,48, 48, 48, 48, 
723 

3386 DATA 48, 48,48,6,8,0,9,0, 
6,15, 248, 192, 192, 192, 195, 


207, 1377 

3396 DATA 243,3,3,12, 68, 284, 
3,3,3, 3,3, 15, 12, 63, 48, 192, 
a78 


3400 DATA 192,192,192, 255, 8 
255,48, 192, 192,192,192, 
255, 192,255, 3, 12,2619 

3416 DATA 12,12, 12,255, 3,255, 
3,3,3,3,3,192, 192,48, 15,3, 
1614 

3420 DATA 3,3,3,48, 48,48, 48, 
240,48, 15, 8,3,3,3,3,3,519 

3430 DATA 3,3,243,255,3,0,8, 
4,0,8,8,8, 248, 15,15, 15,792 

3449 DATA 15, 15, 15,12, 12,255, 
255, 255, 255, 255, 255, 815, 
252,252,252, 2378 

3450 DATA 252, 252, 252, 63,192, 
8,0,0,9,0,8, 48, 48,48, 48, 
48,1251 

3400 DATA 48, 48,63,3,3,3,3,3, 
12,248, 192,3,3, 12, 248, 48, 
924 

3470 DATA 48, 48,48, 192, 192, 
192,192,192, 192,192, 192,8, 
3,3,3,3,1692 

3486 DATA 3,3,3,255, 0,6, 6,0 
4,8, 255, 255,3,3,3,3, 786 

3496 DATA 3,3, 255, 255, 6,6,8, 
0,0,0,255, 255,12, 12,12, 12, 


3560 DATA 12, 12,252,5,195, 
195, 243, 267, 195, 192,192, 6, 
6,6,0, 6, 1698 

3510 DATA 9,192, 48, 207, 192, 
192,192, 192,192,192, 192,, 
252,3,3,3,2652 


3520 DATA 3,3,3,15, 15, 255,15, 
6,0, 8, 0,255, 255, 255, 255, 
12,1341 

3530 DATA 12,12, 12,252,252, 
255, 248,8, 8,8, 0,8, 63,248, 
48, 48, 1434 

3540 DATA 48, 48,48, 240, 0,0,8, 
6, 0,6, 0,192, 192,192,192, 
192, 1344 

3550 DATA 192, 195, 207, 48,51, 
51,68, 48, 192,0,8, 248, 192, 
192, 192,192, 2652 

3566 DATA 192, 192,192,3,3,3, 
3,3,3,3,3,6,8,8,8,0, 608 

3576 DATA 8, 0,255,192, 192, 
192, 192,192, 192, 192, 255, 
12,12, 12,12, 12,1914 

3586 DATA 12,12, 255, 15, 12,12, 
12, 12,12, 12,252, 192,192, 
192,48, 15, 1257 

3596 DATA 3,3,3,63,48, 48,48, 
48,240, 48, 15, 192,248, 15,3, 
31 

3600 DATA 3,3,3,3,3,244, 244, 
244, 244, 244, 244, 244, 244, 
244, 244, 244, 2699 

4000 PRINT*CCLEARINEW* 
PRINT {DOWN2] 

LOAD" +CHRS (34) +*PETE LOAD 
S*+CHRS(34) +", 8* 

4018 REM $8 CHANGE THE 8 
IN ABOVE LINE TO ,1 IF 
YOU ARE USING TAPE 3% 

4920 PRINT*CDOWN4IRUN* 

4030 POKE 431, 13:POKE 632,13 

KE 633, 13:POKE 198,3 

INT [HOME * 


PROGRAM: PETE LOAD 5S 


00 FOR L=8 TO 15:Ct=0 
FOR D=6 TO 15:READ A 
+ALPOKE 126494L 116+ 
NEXT D 
2010 READ As IF ACOCK THEN PR 
INTVERROR IN LINE"; 
2040+ (L416) :STOP 
2026 NEXT L 
2049 DATA 3,3, 255,3,9,,8,0, 
6,8,8,248, 15, 12,12, 12,555 
159 DATA 12,12, 12,12,255,9, 
6, 8,0,0,0, 15,252, 12,12, 48, 
642 


2860 DATA 48, 48,63,192,9,0,5, 
8, 15,249, 48, 48, 48, 48, 48, 
243, 1089 

2078 DATA 3,3,3,3,3,12,2 
3,3, 12,246,240, 48, 48,248, 
1161 

2080 DATA 48, 48,48, 48,48, 48, 


2160 DATA 267,192, 192,192, 
192,192, 192,6,0,252,3,3,3, 
3,3,12, 1638 

2116 DATA 12,12,252,15,0,9,6, 
6, 0,6,0,255, 12,12, 12,12, 
594 

2126 DATA 12,12,15,240,0,0,0, 
4,8, 63,240, 48, 48, 48, 48,63, 
837 

2130 DATA 246, 
192,192,192, 192,192, 
204,240, 48, 1887 

2148 DATA 51,51, 60,248,0,0,0, 
192, 8,8, 240, 834 

2156 DATA 15,6 
255,3,8,0,8) 

2166 DATA 0,0,248,15,0,0,8, 


505 
195, 


12,12, 12, 12,255, 6,6,6,0, 


358 
2170 DATA 9,8,15,248,8, 8,0, 
48,48, 63, 192,06, 


9,0,8,8,8,3, 255, 68,5 
2196 DATA 255,255, 25: 
9,40,0,6, 1766, 2,17 


2,127 

POKE 43, 1:POKE 44,8 

POKE 45, 5:POKE 46,48 

4010 SAVE*POLAR PETES, 8,1 

4620 REM 4% CHANGE THE ,8,1 
IN ABOVE LINE TO 1,1 
TF YOU ARE USING TAPE 
u 
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Stuart Cooke has been 


programs from Ocean. 


HAVE YOU EVER WANTED TO WRITE 
your own arcade game but have been put 
Off because of the complexities of 
machine code? Have you ever wished that 
the Basic on the C64 allowed you to do 
more with graphics? Or, have you always 
found it easy to write programs in Basic 
but always found them too slow? Well, 
two new packages from Ocean IQ will 
solve all of your problems. 

The first of the two programs is Laser 
Basic. Essentially this is just a Basic 
extension like many others available on 
the market. What makes it different from 
all of the rest is its plethora of graphics 
commands. In fact, nearly all of the 
commands in this Basic are geared to 
making the task of graphics programming 
easier. Not all of the commands are 
graphics based, though. There are also 
many advanced programming commands 
such as procedures and quite a formid- 
able array of ‘toolkit’ commands such as 
Renumber. 

The second package isthe one that will 
be of great interest to anyone who has 
found their latest version of Space Invaders 
justa little slow when written in Basic. The 
program is the Laser Compiler, The com- 
piler will change standard Commodore 
Basic and Laser Basic programs into mach- 
ine code. Obviously this will give any pro- 
programs a significant increase in speed. 

Laser Basic is an extension of an earlier 
program called Basic Lightning which has 
been around for some time. If you alread 
have Basic Lightning then you will be 
pleased to know that the Laser Compiler 
will compile most programs written with 
this package. But more of this later. 


Laser Basic 


As previously mentioned, this is essen- 
tially a Basic Extension, but a very 
powerful one, One very nice feature is the 
inclusion of a tape turbo save option. This 
will undoubtedly please cassette users 
who are totally fed up with the slowness of 
the Commodore cassette deck. In use the 
turbo proved itself to be both very fast 
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and very reliable. Even trying turbo saved 
programs on different cassette recorders 
presented no problems. 


Documentation 


A large manual is supplied with the 
package which deals with all of the 
commands in detail. Some sections are a 
little difficult to understand at first 
reading but numerous example programs 
do make things a little clearer. Beginners 
would be well advised to try all examples 
and make sure that they understand how 
they work before they attempt to write 
any fantastic games program. 


In Use 


Programming with Laser Basic is a joy, 
though, when you get on to using 
graphics, it is a little complicated to 
understand at first. The numerous 
structured programming commands 
make the Basic great to use. If you've ever 


written programs in Pascal or other struc- 
tured languages you'll know just how 
valuable are Procedures, Labels and other 
programming aids. For those who have 
never come across these commands let's 
take a closer look 

With a normal GOSUB statement in 
Basic you would use something like 
GOSUB 1000. Line 1000 could, or 
example, be the subroutine that updates 
the score. Unfortunately the line number 
1000 doesn’t tell you this. With Laser 
Basic you could re-write the GOSUB 
command like this: 


GOSUB update 


and line 1000 would become 


1000 LABEL update: 


This makes it much easier to follow the 
flow of a program. 

Procedures take the use of labels 
much further. With a procedure it is 
possible to have a program that uses a 


vaiable, for example VAR1. The proce- 
dure, which is similar to a subroutine 
can also use the same variable name 
however, the two can be treated as com- 
pletely separate items the value of one not 
affecting the value of the other. 

Other structured programming 
commands are REPEAT... UNTIL loops, 
IF. THEN. .ELSE and WHILE. .WEND. All of 
which lead to much clearer and easier 
programming. 


Identity Crisis 


Before we take a look at the graphics 
‘commands it is worth taking a close look 
at what is a new idea 

No doubt you will have already heard 
about the sprites that are available on the 
C64. In Laser Basic these have been 
renamed Hardware Sprites and a new 
type of sprite has been added, the Soft- 
ware Sprite. A software sprite, unlike a 
hardware sprite, is of dimensions that are 
set by the user up to a maximum of 255, 
character blocks by 255 character blocks. 

All graphic commands are operated 
‘on Sprites, this may make you wonder 
how you get things on to the screen until 
you realise tht the hi-res screen is treated 
as sprite number zero with fixed 
dimensions and that the text screen is 
treated as sprite number 255 also with 
fixed dimensions. 

A sprite designer package is included 
with Laser Basic, using this it is easy to 
design extremely large sprites. 


Numerous commands are available for 
sprite drawing. Itis possible to plot points 
‘on asprite, draw boxes, draw lines. With 
the POLY command it is also possible to 
draw polygons and circles. Blank areas, 
such as those created with the BOX and 
POLY commands can be coloured in with 
the FILL command. 


Moving it Around 


Sprites can be manipulated in numerous 
ways. The PUTBLK command is used to 
place a sprite at a specific place on the hi- 
res screen. It is possible to OR, AND or 
XOR the sprite with whatever is already 
on the screen. With careful use of these 
commands the software sprites can be 
made to appear in front of, or behind, 
other items on the screen. 

Commands also. exist for copying 
sprites, or parts of sprites, into other 
sprites. 

Commands exist for moving sprites 
around the screen and scrolling them. Itis 
even possible to make a sprite follow the 
path of another. 

Scrolling backdrops are now ext- 
remely easy. All that you need to do is to 
define your background as asprite, don't 
forget that this can be up to 255 characters 
wide. Place this on the screen ~ only part 
of it will show - and then scroll the 
background sprite with one of the 
numerous scroll commands. It’s as simple 
as that. It was never as easy as this to write 
Defender before, 
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And There’s More 


Obviously itis only possible to giveataste 
of some of the commands available. There 
are many that | haven’t even mentioned 
If you are interested in playing around 
with graphics or just interested in 
programming then you should rush out 
and buy a copy of the program. You 
should be creating works of art in no time 
at all. 


Speeding Things Up 


It’s no good writing the world’s best inter- 
galactic space flight simulator only to find 
‘out that Brian the snail can beat your 
space ship at full speed. Nonetheless, that 
is exactly what will happen if you write 
your programs in Basic. The only way to 
write fast programsis to use machine code 
like all of the top programmers. Or is it? 

The Laser Basic compiler will take 
programs that have been written using 
Laser Basic (and normal Basic) and turn 
them into machine code. Obviously the 
program generated by a compileris not as, 
compact or as fast as one written entirely 
in machine code but it will be many times 
faster than normal 

As can be seen, the Laser Basic 
compiler provides Commodore 64 
owners with an excellent programming 
aid. No longer do you have to study 
machine code. Simply write your program 
in Basic and off you go. 

Ocean 1Q will also let you freely 
market any program that is written using 
Laser Basic and Laser Compiler as long as 
you put a mention on the packaging that 
these programs were used. Perhaps these 
packages could bring out the budding 
Minters and Crowthers in many people. 

The Manual supplied with Laser Com- 
piler is very small, only seven pages, but all 
necessary information is there. It explains 
how to compile a program including how 
to save it. A turbo option is included for 
tape users. Disk users shouldn't feel left 
out either as they are provided with a 
routine that will make programs auto 
start. 

For the many users of Basic Lightening, 
a small section is included that explains 
the differences in some of the commands, 
though most of these are only minor. For 
example the CUTOFF command now uses 
numbers in the range zero to 65535 
instead of zero to 2047. 

‘A quick glance at the demo program 
supplied with these packages shows just 
what is possible with these two excellent 
programming tools. When the Basic 
version of the demo is run itis surprising 
‘enough what is being done from within 
Basic, But when you see the speed of the 
compiled version it looks even better. 

If you want to get into graphics pro- 
gramming but don't fancy getting into 
machine code then take a look at both of 
these packages they are well worth it 


Eric Doyle guides you 


[through some more C-16 


games — new and not so 


new. = 


ANY PROGRAMMER WHO IS PLANN- 
ing a game for the C-16 always meets the 
problem of fitting the game into the 
limited memory space. This does not 
mean that the quality of the game will 
suffer, as Commodore proved with the 
3.5K Vic 20. Unfortunately, the compres- 
sion of and economical use of memory is 
not every software house's forte and the 
consequence is a plethora of unsatis- 
factory games. As | have shown there are 
several houses which take the C16 
seriously and this month's collection 
shows the range of games which have 
impressed me and the reasons why 

Watching my colleagues in the office 
engrossed in yet another game of Break- 
out (and loving every minute) made me 
realise that complexity is not always the 
secret of a truly addictive game and to illu- 
strate this | include Pacmania from Mr 
Chip Software, Pacman was one of the few 
arcade games to transcend the 
boundaries of the amusement arcade and 
capture public interest. The game is not 
very complex and even asatisfactory Basic 
game can be written or copied from a 
magazine. The added speed of machine 
code allows many more complications to 
be added and the animation is a lot 
smoother. Mr Chip has taken full advan- 
tage of these benefits to create a game 
which is recognisably the same as the 
arcade game, but different enough to give 
it added excitement, 

Pacmania’s hero is the familiar 
gobbling disc who is directed around a 
selection of eight mazes eating up all the 
dots that litter every passageway. Ghosts 
emanate from the centre of the maze and 
set off in hot pursuit of your little 
muncher. In most versions of this game 
that | have seen the ghosts quite often 
wander about aimlessly until they come 
within sight of Pacman, but not so in 
Pacmania. The ghosts in this game go 
straight for the jugular running like crazy 
after your slower moving little man. Relief 
from this relentless pursuit can only be 
gained by either using the hyper-maze 
ports or by eating power pills. 

Hypersports are a bit of a gamble 
because you can never be sure where you 
will reappear after using them. Assuming 
you don’t end up ontop of another ghost, 
it is an effective way of escaping a hot 
pursuit but the power pills are more pre- 
dictable because they mean that the 
ghosts become vulnerable for a while 
This allows Pacman to gain more points by 
eating the ghosts or a safe period to eat 
the pills without any interference, The 
speed of the action increases as you work 
your way through each level of eight 
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mazes, creating a game which can never 
be mastered fully and should hold the 
interest for quite some time. 

Cyborg on the Budgie budget priced 
label, from the Alligata pool of com- 
panies, is a simple game in programming 
terms but almost impossible to play unless 
you are the persevering type. Only ardent 
shoot ’em up fanatics should consider 
buying this one because it makes Pacman 
look like a senior citizen’s picnic 

The rules are simple: blast all the 
moving aliens and save the diminutive 
Cyborgs before the enemy kills them. As 
always the reality is not so simple. In factit 
took several attempts to start the first 
screen; every time my ship appeared an 
alien would collide with it and zap me 
back to the title screen minus another life, 
Eventually | managed to hang on long 
enough to survive and worry about using 
smart bombs. The instructions state that 
clearing the screen in one fell swoop is 
essential to your survival. What they don’t 
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tell you is how to detonate a smart bomb 
to achieve this but | found the space bar 
had the desired effect. 

What happens is this, your ship 
appears and then a random number of 
aliens appear all over the screen and 
immediately home in on you. Praying as 
you grasp the fire button, you blast wildly 
and try to wipe’ them all out before 
another group appears. This goes on until 
you clear the first wave and then the next 
onslaught begins. Occasionally, several 
Cyborgs appear and you must collect as 
many as possible, avoiding all of the 
assorted enemy craft. Not much to the 
game really but it’s maddeningly 
addictive 

Another game from Alligata should 
satisfy any platform game devotees with 
its 20 screens to puzzle over. Forward 
planning and exceptional hand to eye co- 
ordination are all that is required to 
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complete Blagger 

Little by little, Roger the Dodger must 
learn the secrets of each room as he 
collects the golden keys which unlock the 
safes. Banks, shops and houses, nothing 
can stop a master thief but it could be a 
long apprenticeship. 

For the earthbound warrior there is US. 
Gold’s Beach head, The limited memory 
does not allow for all of the screens 
contained in the C64 version but you do 
get the aircraft attack, battleship bom- 
bardment and the final fortress. Despite 
the dubious claim to ‘amazing sound’ 
emblazoned on the cassette in bold 
capitals, the game displays something of 
what can be done with the C-16's 
graphics. 

In glorious 3D graphics, your ship must 
bring down the enemy planes which zero 
in from the horizon and then bring the big 
guns to bear on the fleet of warships 
which block your way. In both cases it is 
essential to gauge the correct inclination 
for the guns to hit each target before they 
land enough shots tafinish your ships off. 

The final battle brings you in conflict 
with the enemy's largest and most 
accurate cannon. There are 10 targets on 
the fortress beneath the cannon and each 
target must be hit when it turns white. 
When all have been destroyed the large 
cannon begins to rotate towards your ship 
and you must score a direct hit on the 
weapon before it fires because it never 
misses, One hit destroys another of your 
ships so speed and accuracy is of the 
essence to succeed, This game lacks the 
addictive qualities of the others 
mentioned so far but the quality of the 
graphic displays is so cleverly achieved 
that it deserves a place in any C-16 
collection. 

Sports fanatics are also catered for with 
the C-16. Ocean has converted Daley 
Thompson's Star Events for the joystick 
waggling armchair athletes. The game 
comes in two parts, side one contains four 
track events and side two has three field 
competitions. The track events are the 
most frantic, partly because they last 
longer than the field events and therefore 
require a degree of stamina for success. 
The events comprise of the 100 metres 
110 metres hurdles, the gruelling. 400 
metres, with the 200 metres hurdles 
following close on its heels. The animated 
graphics are also cleverly done but this is 
Not the sort of game where you spend 
your time admiring the scenery! Provision 
has not been made to carry your results 
through to the events on side two which is 
a pity. On my tape this side wouldn't load 
but I'll accept Ocean’s word that the long 
jump, shot-put and javelin events are just 
as enjoyably challenging. 

For sophistication | preferred 
Imagine’s World Series Baseball. Not only 
do you get a 3D image of the diamond but 
there is also a giant video screen in the 
background which shows a close up view 
of the action. 
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Control is complex with all of the 
joystick positions having a bearing on 
various nuances of the gameplay. The 
animation is outstanding and with a little 
practice any novice can be hitting home 
runs, stealing bases and pitching fast balls 
with the best of them. Perhaps after 
learning the basics by playing this game, 
baseball could challenge American 
Football as a new spectator sport in this 
country 

So far none of these games has been 
particularly demanding on the old grey 
matter. Rushing in to fill this gap is an 
adventure game from Bug Byte. 

Although Twin Kingdom Valley has 
been available for the C64 for quite some 
time now, this C-16 version is pretty new 

The game has been condensed by 
removing the graphics and some of the 
less important locations of the original. 


V’ve always felt that the graphics in an 
adventure limit a player's imagination 
(though | admit that this criticism is often 
cited in defence of radio drama over 
television!), so I'd rather play a complex 
text adventure than a limited multi-image 
game. 

A nice touch is that the arrow and 
function keys are fully utilised to reduce 
the amount of typing necessary. The 
vocabulary is a little limited, action 
commands being selected from a list of 33 
words. Not bad considering. 

The idea is to wander about the Valley 
amassing as much treasure as possible. 
The pathways and caverns are patrolled 
bya variety of creatures who may turn out 
to be good or evil. Asin life, the only way 
you can divide the wolves from the sheep 


is to cautiously try to befriend everyone 
you meet. Unlike life, if you die you can 
always try again. 

There is no SAVE facility which means 
that you must start again each time you 
begin a session. This is a definite irritation 
but you can’t have everything. 

For me the ultimate brain stretcher is 
chess and my selection here would be 
Audiogenic’s Grand Master. Playing 
against the computer is possible at a wide 
range of skill levels from novice to Grand 
Master. 

The board is shown in plan view only 
and you can get the computer to suggest a 
move if you get really stuck. You can even 
leave the computer to play itself if you 
prefer but there isn’t a two player option. 
This is true of most chess simulations 
based on the acceptable argument that 
the two player game is best played on a 
real board. 

If the publicity blurb is to be believed, 
Grand Master claims to be the best chess 
game around. Whether you believe this 
or not is immaterial to me, whatever the 
truth my brain is well and truly taxed by 
this game. Well worth checking out 

The final game in this round upis by far 
the most impressive game | have seen on 
the C-16. ACE is a flight simulator (Air 
Combat Emulator) with stunningly fast- 
acting graphics. 

As a fighter pilot, you find yourself 
already zipping through the ether at the 
beginning of the simulation. The control 
panel has all the necessary indicators to 
give you a fair chance to stay in the air 
and the radar displays the enemies’ 
positions. 

The aim is to seek out and destroy the 
enemy planes using the radar at first 
followed by visual tracking through the 
cockpit window. Trying to keep a plane in 
your sights as he dodges and fires at you is 
not very easy to do and low altitude aero- 
batics. must only be indulged in by 
experts. 

Full control over the jet is possible; 
climbing, diving, rolling and looping are 
all catered for and keeping track of the 
jet’s orientation can be extremely difficult 
in the heat of battle. No collection can be 
considered complete without ACE 

It’s not often that we have good news 
for Plus/4 owner's but Cascade have just 
brought out a specially expanded and 
improved version of ACE for these 
machines (reviewed in this issue of Your 
Commodore.). Buy it, it’s money well 
spent 

Well that ends this little round up, 
next month I'l be looking at more serious 
applications software for the C-16. In the 
meantime why not drop me a line at the 
Your Commodore office telling me about 
you particular favourite game on the 
good old C-16. If enough people disagree 
with my selection I'll give your games a 
whizz and see if lagree. You can reach me 
care of Your Commodore, 1 Golden 
Square, London W1R 3AB. 
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All prices include VAT P&P__Cheques & P.O. to 
RUP ELECTRONICS. 
27 Denham Way, Camber, Rye, East Sussex TN31 TAP Te: (0797) 225549, 


‘ALPHASOFT 
CAME Software - 25% Reductions 


CLAIRES COMPUTERS. 
TOP Software st LOWEST Prices 


01-437 0699 


EXT. 291 


Send your requirements to: 
STUART TAYLOR 

ASP LTD, 1 GOLDEN SQUARE, 
LONDON wi 


KNOCKDOWN PRICES 
on 
PLUS 4/C16 SOFTWARE 


with over 

125 TITLES TO CHOOSE FROM 

DISCOUNTS FROM 10% - 50% 
INCLUDING MANY OF THE LATEST TITLES 

TO RECEIVE YOUR FREE LIST 
SEND (A2) SAE TO: 
Venturegate Ltd (C16/PLUS4 Software List) 

17 Harold Road, Leeds LS6 1PR, W. Yorkshire, England. 


Tae ane 

es 

£750 £1050 115 Parsonage Road, Withington, 

28 vente 
“Gulex Shot it Joysticks Only £6. so, 


“Te1209 211900 or your sotware needs 


Sarcranatar EDUCATIONA 
SOFTWARE 
4 


FRENCH REVISION 
‘La Conjugaison 
30 Regular Verbs. 17 Tenses for 
CSE. "0. A’ Level. As used in 
schoois 
fs Extn ‘Commodore 64 Disk £13.95 + 50p p80. 
: ESS & CHEQUES WELCOME 
Enquiries & Orders to 
Wey Noingham Ne BH 


“SOCCER MANAGER — 


forse racing game 


‘hatfols 6. Tl: 0742 749808, 


DERBY DAY -C16Canyoupicka 
e-Facing Spec 
Se enetisreee, QUIZ GAMES! 
Fa ee ea pains ON CASSETTE FOR C64 
Realistic betting from different 
eatures. § 1ue/PC 
® BLOOMFIELD SOFTWARE, 
P.O. Box 69, Blackpool FY2 9EX 
GAMES MAKER 
92, Robin Hood Lane, Hall 
For detalls of ee noe ebaess Oat 
actuals La Tek: 021 745 3896 
Your Commodore 


Phone 01-437-0699 


Now you can use your computer to help you learn or 
develop your skills on the guitar with GUITAR STUDIO, 
a range of essential software for guitarists 


* Guitar Studio 1 - a tutor for beginners with or without 
a teacher. Creating a more musical environment 
encourages a more enjoyable and musical approach to 
learning while progressing at your own speed. 
Excellent for the guitarist who wishes to learn to read 
music. 
* Gultar Studio 2 - a chord dictionary with utilities. 500 
chords, practice routines, melody input from 
manuscript or through the on-screen fretboard, 
develop your own chord sequences (even your own 
chords) through a simple programming facility. Play 
back with a wide choice of preset sounds. Full editing 
and filing facility. 
* Guitar Studio 3 - music theory for quitarists. Includes 
principles of notation, intervals, chord structures as 
applied to the guitar, scales, keys, etc. Tests are 
included enabling the user to monitor his/her progress. 
TEACHERS - send for details if you want to interest 
your pupils in any of the above. 

Price each - TAPE £9.95, DISK £11.95 
Available through your nearest software dealer or 
direct from Micro Music. Trade enquiries welcome. 


MICRO MUSIC 
software for music education 
St. michaels Chambers 
urriers ate 

You Yo! 
(Tel: (0904) 647508 


WARNING NOTICE 


Advertisements placed in this magazine are to be in strict compliance with our standard conditions (copies of which 
conditions are available on request) and on the clear understanding that the advertiser warrants that his 
advertisement(s) does not infringe any copyright or condition of sale of any interested party in the advertised 
product. 

Further, the advertiser indemnifies the proprietors of this magazine in respect of costs, damages, or any other claims 
broughi against them as a result of legal action arising from the publication of the advertisement, 


Any breach of these terms or the said conditions may result in prosecution of the advertiser by the proprietors. 


PREPARE SOFTWARE 


The ist choice 
Pi 

‘TRIDENT ENTERPRISES COMEL ER AeC Alas 

LTD * Commodore, Sj Ga BBC, 

WHY PAY HIGH 3 = 

‘Commodore 6s—f15.vicz0| |p WHY Pe far Amstrad ete SRT aIST SENT SORTS 
— £12.50, Spectrum PRED ERICES, + Low cost repairs trom £12.00 (BeBe #8: Bo 88 Orpington Kent 
£10.50, QL — £90, 1541 Disk * Collection & delivery optional | | dors ena she tors 


Drives’ — £20, and all Com- 
modore systems. Send faulty 
machine with note describing 


Call Nigel: 961 2812 
ELECTRONIC SYSTEMS 


SERVICES 
fault to P.O. Box 443, 
4 w London NW10 8XB 
LUNIT 7, WENTWORTH INDUSTRIAL Momerino me Posace 


OUGH TEL 0759 21991 


MANCOMP:o 
(Dept YC5) 


‘BUSINESS (OISK), 
Prmtworks Lane Levenshulme ‘RRP ouA Paice 
Manchester Mi9 IP 


OPEN MON. SAT Sam ta Tom 
Bad 068 B0864 


COMMODORE REPAIRS 


tlt on ia ss When replying to BUY OR BELL ar uaried’ || (esses nett fem 
neatgpeasincatsentemis! | | classified advertisements | solware, books,an st 
Sree :| | feacers ara recommended, | ft fou dvecty 


ae gat" ich other in 
36 Burlington Road, Burnham, 
‘Bucks SL1 78Q. 


to take steps to protect 
their interest before 


(05206) 61696, sending money. 
Vn Spm Mons 


COMPUTER REPAIRS 


= VIDEO VAULT INTERNATIONAL oo 
10x REPAIR SERVICE FNGic yom 


24H (RSD Sa RC 
wwinéroino >) COMMODORE 64 REPAIRED FOR ONLY £85.00including Post & Mi 
| PACKING - PARTS - INSURANCE ~ NO HIDDEN EXTRAS! 


Are youted up wating weeks tor & While ou waltreairserice ‘& Most commadores repaired 
fourcorputertoperepared”, x Smonthwrittenguarantee nal within hr. 

Walwartnotonger Werepairal™ repas + Acros Insured forreturnjourney. 
Commogoressameday. Wealso 4 intemationalRepairCompany. We % OverByears experience working with 
9 Com 6, ie 0. Tse Disk Fepaircomputersfromalloverthe | computers. 

Drives pls orjoucanorder word + Allcomputersfuly tested 
heReplacemientChips rom Our Aicomputerssent allOrdertured Power supplies ul tested. 
uy. section aroundin 24h % Rosoutourthuty tested 


TRADE SUPPLI 


FROM STOCK! 


if you know what chip has gone in your computer you 
can order the replacement Lc. from our range. 
6526 23.00) 901225-01 23.00 
6510 23.00) 6569 23.00 
6581 23.00| 4164 RAMS 3.00 
901227-03 23.00| Power Supply 
901226-01 23.00! Units 29.00 

Telephone: Glossop (STD 04574) 66555167761 All prices include V.AT. ‘please ADD £1.50 to cover 

140 High St. West, Glossop, Derbyshire, England Ne Dee 


© Copyright Videovault Ltd. No. 151085 


MIDLAND COMPUTER 
LIBRARY 


ATTENTION COMMODORE USERS 
A SUBSIDIARY OF PLATINUM GOLD 


‘T OVER 7,000 diferent ites avaiable for hire for the COMMODORE, SPECTRUM, 
ELECTRON, BI 
ARCADE, ADVENTURE, EDUCATIONAL and BUSINES 
+ HIRE PRICES from only 75p INC. PAP. 
20% DISCOUNT of all purchase software. 
FREE CATALOGUES. ~ 


oftware too 


'PREE HINTS AND TIPS. 
FAST RETURN OF POST SERVICE if roservos aro giv 
[ALL GAMES manufactured ORIGINALS with full documentation. 
* OVER 6,000 satisfied members." EUROPEAN members welcome. 
FREE MEMBERSHIP LIMITED PERIOD ONLY 
* Fully computerised system keops rack of you 
most professional Mire Li ‘United Kingdom, with sta of 1¢ who knows what 
MIDLAND COMPUTER LIBRARY 
loses rush me my calaiggoa, aneonng ft to cover otis Relunsable 09 ining. 
Name: 


COMMODORE 64 cassette 
ibrary. Hire latest games and 
educational software, only one 
price £1.50 per cassette 7 days 
hire. Details SAE. please: C.CL. 
19 Darrell Way, Abingdon, OX14 
1HQ. 


i FREE DISKS !! 
HOME ACCOUNTS For every 10 ordered we supply 11 


Put your house in order! seinen 
propebi horas com puaings BS/D0 £13.19 DS/Q0 £18.39 
coverage of bank accounts 
Credit cards, HP in-built 
accuracy check. Records all 
transactions, Projects cash- 
flow for any period ahead. 
Available for Complete Com- 
modore Range. £8.45 or free 
details from: 

Discus Software 

Freepost 

Beach Approach 

Brixham TQS 8BR 

Tel: 08045 55532 


VIC-20/CBM-64 
SOFTWARE HIRE 


Free Membership. Hundreds of Titles 
to choose from, Send’ SAE. for you 
Free Wire Kt 

SH (YM), PO BOXES, NOTTINGHAM NGI 


SOFTWARE 
APPLICATIONS 


314 
8/Side £27.49 D/Side £32.99 
All prices INCLUDE VAT 
‘Delivery Is FREE 
All disks guaranteed for 12 months 
Cash with order please to 
HOLLBARN Ltd., Dept CM1, 
8 Alexander Road, Stotfol 
Hitchin, Herts. SG5 4NA. 


Promote your 
service on these 
pages every 
month at a 
cost effective rate 


Super Breaker 
Back-Up Board 


Sime cmaroea? as 


RESET CARTRIDGE for COM 4. This 
Eartridge wl reset ll yes al 

Fesigest programs. Including 
ams where standard reset swteres 
fa Price 7.98." PAP, 


MOONRAKER £7.95 


CBM64 Space Game features fast 


“Fyn Rating Rader Dipiey 


PAP 55p UK (Europe ac £1.00, else- 
Where add £2 00) Sond eheque’posta 
rdar, ofa stamp Tor deals fo 
C. Kent, 26 Northcape Walk, 
Corby, Northants. NN18 9DG. 
For enquires telephone (0596) 742622 


send your name, adaress & POrchegu 
‘J & J Gilmour Ltd., 
Dept ¥C486, 4 Copse Close, Liss, 
Hampshire GU33 7EW, England 
"Fel: 0730-099430. 


STAR SG-10C PRINTER 


ONLY £249 TO INCLUDE VAT & NEXT DAY 
DELIVERY BY SECURICOR 


100% compatible with your Commodore computer, 
120eps draft mode 

Tractor and friction feed standard 

Near Letter Quality mode included 

192 graphic mode characters 

192 business mode characters 

80 italic characters, 

80 NLO characters 

Normal 80 ep. Condensed 136 cpl 

Enlarged 2X, SX & 4X. 

Supaiied with interface/cable and mains plug READY TO GO. 


SEIKOSHA GP100 VC PRINTER £99 
STRONG COMPUTER SYSTEMS 
BRYNA COTTAGE, PENIEL, CARMARTHEN, DYFED SA32 70 
TEL; (0267) 231246 FOR ASSISTANCE!!! 


cea 


* BACK-UP-SYSTEMS FOR CBM-64 & VIC-20 * 


‘The BACK-UP-BOAAD Mk. 1 is the fastest, and oasiost way to back up your tape 
programs. Wn ths board you can connect second CBM caaete deck to your 
‘te. BACK-UP-BOAAD Mk. 


fhe fret Vou 
£30.00 ine. PaP. 
‘BACK-UP-BOARD Mk. 2. This new version of our famous BACK-UP-BOARD is now 
proving 80 popular ts oulseling our original Mk 1. This new board now works wo 
ways, Switched to NORMAL’ I operates asthe Mi i. Switched io GENERATE: 6a 
‘Owners ean use our apecalransfer software to regenerateacopy of program on the 
Second deck ast loads from te iret. Thue method can produce 4 Betler Guay Copy 
{han the original. BACK-UP-BOARD Mk. & Sofware £14.80 inc. P&P. Conversion 
te, Return your kt Soar H purchased trom ux, tbe modihed folk for 
E430 including Sohware 

AZIMUTH HEAD ALIGNM! 


tor°64" Uso ths test ape 
erfecly matched pair Full 


ROM SWITCH/RESET BOARD. Fit this board in he expansion port of your 84° ang 

You can reset ALL programs. Resets programs that a stangerd fest switch cant A 

ocket fora 2764 8K eprom a also fitted Full instructions supplied. £6.95 Ine P&P. 

Please send SAE for more details of the above products. Send your cheque/PO to 
TURBOTRONIC 

46 Ripon St., Parkinson Lane, Halifax, West Yorkshire HX1 3UG. 
Tel: (6422) 52020 

(Europe add 50p outside Europe add £1.50) 


BOOKS AND 
PUBLICATIONS 
For advertising 
details phone 
We use only Stuart Taylor 
10% of our ‘on 01-437-0699 
“; mental 
potentials 


Tecate 
Si 


PROM-64 
EPROM programmer for 8K, 18K, 
ZIF socket, Vpp generator & 


Gite Se sent att, Bho || | Sottwara on tape) O° e34.75 
Scientam workers’ and managers lh 64-CARTridge. 28K £5.95, 
SB od ea Bema epaGni ax Faas 
ciecieg, ie seertt & Seige: || | DHOsI-2 EPROM eraser £2288 
soe Ties 1S Var 


Cambridge Microelectronics 
One Milton Road, Cambridge 
. CBs 1UY 

Tek: (0223) 314814 


Thx: 81574 
aro reared 


ee 


GADGET 64 £6.95 
This. 100% machine code. CBMG4 
eaatie uty ofters: Append, Delete 
Remumber (chad 


Forse form COM CUTE 
raphics/souna, prnter’screen 
‘output savertoad race fle, easy Sata 
‘entry. Fer the more discerning Wt 
‘acing man, Horse form gives 
winners £798 cassette, 

Cheque’PO te 
SEESAW SOFTWARE, 
Box No. 212, YE Argus Specialist 
Publications, No. 1, Golgen Square, 
Condon WIR 3AB, 


'PO or Cheque'tor 
Pree) to 


4&3 Gilmour Ltd, 
Dept ¥O486, 4 Copee Clove Ces, 
Hampshire GU33 7EW, England. 

"Tet: 0790-099490 


CHe/PLUS 4 SOFTWARE 
Re OUR Tne 
“ 


JOTHAN SOFTWARE (Dept v.c.1)_ ner mero 
165 Heol Guys, Upper Cumtarch, Swanses SAB 2X0. Tel 0699-830834 


HIRE HIRE 


STAFFS COMPUTER LIBRARY 
CBM 64 OWNERS 

zoin the friendly Library. We give you what you want. Ia title 
is not on our list then we will gett, if it's stil available 
(Games oniy) 

© All the latest Titles 

© Full 7 Days Hire 

© Low Hire Cost. From 75p 

© Up to 4 Games per week 

© All games original 

© Lots of American Titles 

© Low Hard and Software prices 

© Membership ONLY £5.00 

Free mic Monitor on joining 


Send your cheques/postal orders payable to: 
STAFF COMPUTERS 
‘The Newlands, Greensome Lane, Stafford 


Please place my advert in YC for. issues 
‘commencing as soon as possible. |amenclosing 


my cheque/P.O. for £. (made payable to 


A.S.P. LTD) (46p per word VAT INCLUSIVE.) 
Name. Soerdaananetn 


1 2. 3. 
4 5. 6. 
7 8 9. 
10. ” 12. 


Address. 


Phone No. 


Signature....... sv Date, 


SEND TO: STUART TAYLOR, ASP LTD 


1 GOLDEN SQUARE, LONDON WiR C 


coon 


Its easy to complain 
about advertisements. 
But which ones? 


Every week millions of advertisements appear in print, on posters or 


in the cinema. 


Most of them comply with the rules contained in the British Code of 


Advertising Practice. 


But some of them break the rules and warrant your complaints. 

If you're not sure about which ones they are, however, drop usa line 
and we'll send you an abridged copy of the Advertising Code. 

Then, if an advertisement bothers you, you'll be justified in 


bothering us. 


The Advertising Standards Authority. 
Ifan advertisement is wrong,were here to put it right. 


ASA Ltd, Dept 2 Brook House, Torrington Place, London WC1E 7HN 


iggat vlad WAR (PLAY 


Choose your weapons - choose your role. Whose air force will do 
the victory roll? Whose commander will surrender? 
Aerial dog-fights - Tank battles - an elusive commander - The scene is set 
for a thrilling contest of skill and strategy. One or two player. 


C16/PLUS 4 COMES OF 2 OF AGE! 


64 sae graphics and music - 6 high res. Bia screens - ee 
skill levels - Menu driven facility to construct your own screens 
with save/load facility. 


Represent your country 
y in six star events 
competition including 
BIATHLON and 
BOB SLEIGH 
set against a 
scenic backdrop. 


TER SPORTS £6.95 Cass. 
Experience the sheer exhilaration of POWER BOAT RACING - Negotiate 
a complex SLALOM COURSE - Rise to the challenge of a SKI JUMP. 
Three exciting competitive events. — ENHANCED PLUS 4 FEATURES 


eg te carat TENN a 
rit a — raaoe 
\ i \ ARCO MARKETING LTO. 85, TILE KILN LANE, BEXLEY KENT 
© 


TELe OR22.62263) 
o> J. PASMENT BY: CHEQUE P.0..VISA OR ACCESS - 
~ — 24 HR CREDIT CARD SERVICE 


Choosing the right computer 
is a good start — but can you 
find the right software? 


At SUPERSOFT we're very conscious of the 
‘act that people who spend several hundred 
pounds on computer equipment are looking 
to do rather more than play Space Invaders. 

Financial planning is a rather grand name 
for sornething you've been doing all your life 
— making ends meet! Perhaps if Mr 
Micawber had used BUSICALC he would 
have been able to balance the books a little 
better. 

For home, club or small business use 
BUSICALC 1 should pay for itself in no time at 
all; for larger companies we recommend 
BUSICALC 3, one of the few really valuable 
programs that you can learn to use in a day. 

Although your Commodore 64 is a power 
ful musical instrument you need to be a 
pretty good programmer to understand how 
it all works. Unless, of course, you buy MUSIC 
MASTER! 

To use MUSIC MASTER requires no prior 
musical knowledge, though in the hands of 
an experienced musician it will prove an 
invaluable tool. You don’t need to know the 
first thing about programming either! MUSIC 
MASTER is the musical equivalent of a word 
processor, remembering the notes you play 
and allowing you to replay and edit them as 
you wish, 


INTERDICTOR PILOT is 2 space flight 
simulator. Nowadays simulators are widely 
Used to train pilots and astronauts because — 
to be frank — it's a lot cheaper (and safer) 
than the real thing! 

Imagine, if you will, life in the 22nd 
century: space travel is commonplace, and 
on the outskirts of the galaxy the first war 

etween civilizations is being fought. A short 
age of trained pilots has prompted the Feder 
ation to develop a computer simulation that 
allows raw recruits to gain experience with 
out paying for their mistakes with their lives 
With the aid of your Commodore 64 you too 
can learn to pilot the Interdictor Mk 3 craft 
But be warned — this is no game! 


SUPERSOFT, Winchester House, Canning Road, 
Wealdstone, Harrow, Middlesex HA3 7S) 
Telephone: 01-861 1166 


Other SUPERSOFT products include the 
MIKRO ASSEMBLER cartridge, the only 
assembler that's ideal for beginners yet pow: 
erful enough for the professional (most of 
‘our competitors use it!). The VICTREE cart 
fidge adds dozens of commands to Basic 

luding toolkit aids and disk commands; or 
on disk there's MASTER 64, a really com 
prehensive package for the keen prog 
rammer 


OF course, 
programs, and with classi 
and KAMIKAZE in our range we are one of 
the market leaders, But we most enjoy 
coming up with the sort of programs that are 
going to be in use for months and years, not 
hours and days — the sort of programs that 
make you glad that you bought a computer 
and glad that you bought SUPERSOFT! 


we do also publish games 


like STIX, QUINX 


>U won't find SUPERSOFT products on 
the shelves of your local supermarket. But 
most specialist shops stock titles from our 
extensive range (and are prepared to obtain 
other programs ta order). However you can 
also buy direct by sending a cheque (pre-paid 
orders are post free!), by calling at our 
offices, or over the telephone using your 
ACCESS card 


